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Turbo power for the Atari ST/TT 


HighSpeed Pascal is a brand-new Pascal system for your Atari ST / 
STE/TT computer. Designed to be compatible with the hugely 
successful Turbo Pascal on the PC, ees Pascal has the follow- 
ing features: 

e Fast, single-pass compiler in a fully integrated environment 

© Compilation speed of more than 20,000 lines per minute (ST) 

e High level of Turbo Pascal compatibility with full recursion 


¢ Compile to memory or compile to disk 


Integrated multi-window editor 
Interactive error detection for both compile and run-time errors 
Context-sensitive help for language syntax and editor usage 


Unit concept, such as found in Turbo Pascal 5: 
¥ allows modular development 
¥ gives very fast compilation 
/¥ many standard units supplied (GEM/VDI, TOS, 
BIOS/XBIOS, PRINTER, UTILities, GRAPH) 
Y build your units into one resident library 


Versatile Make facility for easy project management 
Source code control using conditional compilation 
Full source include facility to a depth of 7 
¢ Inline procedures 
© Multi-path search facility for include files/units/object files 


All these features make HighSpeed Pascal a truly powerful and easy- 
to-use system which runs on any Atari ST, from the humble 520ST 
with 1 drive up to the new Atari TT. 


Supplied with a quality, ring-bound manual and full technical 
support from HiSoft, HighSpeed Pascal is the one language 
you've been waiting for! 


_HighSpeed Pascal is produced by 
D-House in Denmark and exclusively 
distributed in the UK, USA, France, 
Australia and New Zealand by HiSoft, 
The Old School, Greenfield, Bedford 
MK45 cy 9) =a 8 @ 








NEW IN VERSION 1.5 





New in version 1.5, not placed in the manual. 


Absolute variable declarations 


Variables are normally placed dynamically inmemory by the 
compiler or the runtime system. But now variables can also be 
placed on absolute addresses. This makes it possible to map 
variables to things like hardware addresses and the like. 
Variables can also be placed on top of other variables makin g 
type casting somehow easier. Here are a few examples: 


var aString: String[30]; 

StringLength: byte absolute Str; 

{else L:=Length (aString) ; } 

Vectors: array[0..255] of pointer absolute $0000; 


As seen, the declaration just add the word ABSOLUTE and 
another variable or a number after the variable declaration. 

The variable declaration has now been extended to the 
following: 


VariableDeclarationPart = 

"var" VariableDeclaration { VariabelDeclaration PP 
VariableDeclaration = 

IdentifierList ":" Type { AbsoluteClause } ";". 
AbsoluteClause = 

"ABSOLUTE"[ unsigned integer I variable 
identifier] 


i) 


NEW IN VERSION 1.5 
Typed constants 


Types constants can be look at as normal variables with a 
defined initial value. Normal constants cannot be changed 
because they do not have any space in which to live. 


CONST PI=3.1415; 
BEGIN writeln(PI); . 
PI:=22/7; | 
END; 


The first writeln is ok, while the second assignment cannot be 
done. Typed constants are not real constants as the name might 
indicate, but instead normal variables. 


TypeConstantDeclaration = 

Identifier ":" Type "=" TypedConstant ";". 
TypedConstant= 

Constant | ArrayConstant | RecordConstant | 
petConsrant | "NIL" 


All typed constants are allocated in the globals space, even if 
declared inside a procedure or function. The value is assigned 
when the program starts, and never again. 


Simple Constants 

Simple types are assigned a value by writing the value right 
after the equal sign: 
Const EndChar: Char = #27; FirstPos: Integer = 2; 


String Constants 

Strings are as easy as simple types to assign values to. 
Const Hello: String = 
"Hello world'#13#10; ProgName: String[8] = 
'"MyDemo'; 
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Array Constants 
Array elements are written enclosed in parentheses and 
separated by commas. 


ArrayConstant= 

"(" TypedConstant { "," TypedConstant } ™")" 
Example: 

Const YesNo: 

Array [Boolean] of String[3] = ('No', 'Yes'); 


Elements not written are filled with binary zeros. 
Example: 
Const BigArray: Array[1..100] of Integer = 
(0,1,2,3,4,5); {The rest is zero} 

Packed array of char can be written as a simple string type 
constant. 

Const Str: packed array[1..9] of char = 
"abcdefghi'; 


Record Constants 
Record fields are written by writing there field name and the 
assigned value, separated by acoton. More fields are separated 
by semicolons. 
RecordConstant= 
"(" FieldID ":" TypedConstant { ";" Eielagip “s"* 
TypedConstant } ")" _ 
Example: 
Type TRect= | 
Record x,y: integer; End; Const Rectl: TRect = 
x - O; vy = 200 }- 


Set Constants 

Set elements are enclosed in square brackets and separated by 
commas. Like when using sets, set elements can be specified 
either by a single value or as a range consisting of two constants 
separated by two periods. 
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setConstant= 

"[™" [ ElementConstant { "," ElementConstant } ] 
me 

ElementConstant= 

Constant [{ ".." Constant ]. 

Examples: 

Const HexDigits: set of char = 

[POF 2” Sy hae oe et, Sg TE) YSENGCHEE? Set Gt 
char = <a Pot nt, ‘tt (#23) 


Pointer Constants 
The only legal pointer value that can be used is the value NIL. 
Example: 
Const MyStructListHeader: Pointer = NIL; 


DOS Memory Allocations 


The DOS unit now has procedures for using memory from the 
system heap. 

The functions to use for this are: 

Function Malloc(Amount: Longint): Pointer; 

{Get bytes} 
Procedure Mfree(Block: Pointer); 
{Release a block} 
Procedure’ Mshrink (Block: Pointer; NewSize: 
Longint); {Shrink a block} 


Malloc returns NIL if not enough memory, else a pointer to 
the block. Mfree and Mshrink sets the DosError variable, also 
found in the DOS unit. 


NEW IN VERSION 1.5 
New: ASM, ASSEMBLER 


Now you can include assembly directly in your Pascal source 
files. 


Example: 
for n:=1 to 99 do begin 
ASM lea m,a0 ; moveg #88,d1 ; move.w d1,(a0) END; 
DoSomething; 
if Error then ASM illegal END; {Make the debugger stop } 
end; 


The Inline Assembler 


HighSpeed Pascal enables you to type assembly source 
directly into the Pascal source. The full 68000 instruction set 
is Supported. 

The assembler does not know of the size of a used Pascal 
variable. It is up to you to specify the right size on each 
assembly instruction if not using the default word size. If you 
code ASM move MyLongInt,d0 END; you end up with only 
the hi part from the longint MyLongInt. 

The assembler makes is much faster to write small code 
pieces without having to use the Inline or external system. Of 
Cause, you can still use inline and external. 

The only directives implemented is DC to define constant 
blocks in the code. 

All other needed features must be coded in Pascal. The 
assembler can read Pascal constants and variables. 


NEW IN VERSION 1.5 


These are the registers known by the assembler: 


DO, D1, D2, D3, D4, DS, D6, D7, 
AO, Al, A2, A3, A4, A5, A6, A7, 
oF, OSF,.PC,. CCR, SE 


Special variables only known to the assembler: 
@@RESULT 


These are the 68000 instructions known by the assembler: 

ABCD, ADD, ADDA, ADDI, ADDQ, ADDX, AND, ANDI, 
ASL, ASR 

BCC, BCHG, BCLR, BCS, BEQ, BGE, BGT, BHI, BHS, 
BLE, BLO, BLS, BLT, BMI, BNE, BNZ, BPL, BRA, BSET, 
BSR, BIST, BVC, BVS, BZE 

CHK, CLR, CMP, CMPA, CMPI, CMPM 

DBCC, DBCS, DBEQ, DBF, DBGE, DBGT, DBHI, DBHS, 
DBLE, DBLO, DBLS, DBLT, DBMI, DBNE, DBNZ, DBPL, 
DBRA, DBT, DBVC, DBVS, DBZE, DIVS, DIVU 

EOR, EORI, EXG, EXT, ILLEGAL, JMP, JSR, LEA, LINK, 
LSL, LSE 

MOVE, MOVEA, MOVEM, MOVEP, MOVEQ, MULS, 
MULU 

NBCD, NEG, NEGX, NOP, NOT, OR, ORI, PEA 

RESET, ROL, ROR, ROXL, ROXR, RTE, RTR, RTS 

seCD, SCC. SCS; SEO, SE, SGE, SGT. SHI, SHS..SLE, 
SLO, SLS, SLT, SMI, SNE,.SNZ, SPL, ST, STOP, SUB, 
SUBA, SUBI, SUBQ, SUBX, SVC, SVS, SWAP, SZE 

TAS, TRAP, TRAPV, TST, UNLK 

You will have to find the description of these instructions 
somewhere else outside this manual. 
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The assembler is accessed through an ASM statement. The 
syntax of an ASM statement is: 


ASM [Label:] AsmStmt < Separator AsmStmt > END; 


where Label is an optional label and AsmStmt is one assemb- 
ler statement. The Separator is either a semicolon or anew-line. 
Notice that this is different from the rest of the HighSpeed 
Pascal compiler where a new-line only counts as a space. More 
than one AsmStmt can be placed on one line separated by 
semicolons or they can be placed one on each line just like that. 
An example: 


Function Add3(X, Y, Z: Integer): Integer; 


begin 
ASM 
move.w xX,da0 
add.w ¥.:a0 
add.w Z, a0 
move.w d0,@@result 
END; 
end; 


Labels 


Labels declared in a Pascal label declaration can be used and/ 
or defined in an ASM statement. But because assembly coding 
usually makes a lot of labels you can also make local labels in 
the ASM statement. 

Local labels do not have to be declared in a label declaration 
but gets known first time used. They are declared by writing an 
at-sign (@@) as the first character. 
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ASSEMBLER procedure and 


functions 

If the the ASM END statement is the only statement in a 
procedure (or function) the procedure can be declared as an 
ASSEMBLER procedure. This removes the need for the BEGIN 
END block. The The Add3 function can now be written as: 


Function Add3(X, Y, Z: Integer): Integer; ASSEMB- 
LER; 


ASM 
move.w X,qd0 
add.w Y,ao 
add.w Z,a0 
move.w da0,@@result 
END; 


It looks more clean. But beside the obvious savings, the 
compiler also speeds up yourcode because of some optimization: 
Value parameters are never copied to local area. This saves 
code and time. But you must take care yourself because you are 
not allowed to change these value variables. 


In the following example the variable P is a value parameter. 
As can be seen in the appendix "Inside HighSpeed' section 
‘Value Parameters' only the address of a string is passed to the 
procedure. Because of the ASSEMBLER directive you only 
get the address of the original string. Without the ASSEMB- 
LER directive you would have written LEA P,AO instead. 


Type C Str=PACKED array([0..255] of char; 
Procedure PasToCStr(Ps Strings var Cz ¢ St’); 
ASSEMBLER; 

ASM MOVE.L  P,A0 {Address of the Pascal 
string} 
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MOVE. L C,Al {Address of the C string} 
MOVEQ #0,D0 
MOVE.B (AO) +,D0 {String length} 


BRA @@L2 

@@L1l: MOVE.B  (A0)+, (Al) + 

@@L2: DBRA DO,@@L1 

CLR.B (Al) {Terminate the C string} 


END; 


Assembler directives 


The only directive known is DC, Define Constant. It takes the 
three sizes .B,.W and .L. 
DC.B blocks does always make an even number of bytes. 


Examples: 
ASM 
DC.B 11,'Hello World' {Pascal string} 
LC.B "Hello World',0O {C string} 
DC.B L,2,3t4t5 
DC.W Te Bpues 
DCL 1 
END; 
Expressions 


It is important to notice that expressions does not always act 
the same way in assembly as in Pascal. 


Assume: 
Const 
X=4; 
Y=7; 
Var 
M,N,O: Integer; 
A: Array[0..99] of Integer; 
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We want to code the following in assembly: 


M:=X+Y> 
M:=N+X s 
M:=A[3]; 


The right way: 


ASM 
MOVE .W #X+Y,M 
MOVE .W N, DO 
ADD.W #Y,D0 
MOVE .W DO,M 
MOVE .W A+2*3,M 
ger} . 
END; 


The wrong way: 


ASM 
MOVE .W X+Y,M 
MOVE .W N+X,M 
MOVE.W  A,DO 
ADD .W #3*2,D0 
MOVE .W DO,M 

END; 

Registers 


| {M: 
:=N+X } 


{M: 


{M: 
{M: 
s=A[3] } 


=X+¥} 


=A[3]. 2 because Inte- 


=X+Y¥ } 
=N+X} 


These are the CPU registers known by the assembler: 


Data registers: 
Data registers: 


D0, D1, D2, D3, D4, DS, D6, D7, 
AO, Al, A2, A3, A4, A5, A6, A7, SP 


Special registers: USP, PC, CCR, SR 


The @@result variable represents the position on the stack of 
the returnedresult. Remember that @@result can either be the 
position of the result or a pointer to the result. Look in the 
appendix ‘Inside HighSpeed' section 

‘Function Results' for more information. 
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Addressing modes 
The following is the 68000 CPU's addressing modes: 


Dn Data register 

An _ Address register direct 

(An) Address register indirect 

(An)+ Address register indirect w/postincrement 
-(An) Address register indirect w/predecrement 
d(An) Address register indirect w/disp 

d(An,Rn) Address register indirect w/disp and index 
XXXX Absolute short 

XXXXXXXXK Absolute long 

d(PC) Program counter indirect w/disp 

d(PC,Rn) Program counter indirect w/disp and index 
#XXXX Immediate data 


The Rn index field can be Dn, An, Dn.S, An.S where S is W 
or L for word or long. 

The displacement on the two formats with index must be 
written. If zero then write a zero. 


Operators 


The following is the defined operators for use in expressions: 
Highest precedence: 

+ Unary plus. Does nothing 

- Unary minus. Returns the negated value 

! Unary negation. Return the bitwise not value 


Second highest precedence: 
* Multiplication 

/ Integer division 

% Integer remainder 


1] 
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&  Bitwise and 
<< Logical shift left 
>> Logical shift right 


Lowest precedence: 
+ Addition 

- Subtraction 

| Bitwise or 

A Bitwise xor 


Limitations 


Jumps with BRA, BSR etc can only be done using word 
offsets. BRA.B or BRA.:S is not allowed. 


The only way of getting an address in the code is by using 
LEA or PEA (or by jumping to it/calling it). 


ASM 
LEA @@MyData, a0 {Ok } 
PEA @@MyData {Ok} 
MOVE.W @@MyData, d0 {Wrong! } 
5 


@@MyData: DC.W 1,2,3,4, 
END; 


The addressing mode (An,Rn.S) and (PC,Rn.S) must be 
prefixed by an expression. it is not allowed to write PEA 
(AO,DO). Instead write PEAO (A0,D0). 


NEW IN VERSION 1.5 


New: Assign, SetTextBuf. 
Changed: Device. 


The file system now supports Assign as in Turbo Pascal. A 
routine named SetTextBuf can change the text buffer size. 
Because of that the Reset, Rewrite and Append calls does not 
any more accept a parameter for the text buffer size. You must 
use the SetTextBuf call after the Reset (or Assign) instead. 

The Device call has changed a bit. Now it needs a 20 byte 
buffer for its internal works. 

Before: 

Device ( ‘MyDevice’, @@MyIO) ; 


Now: 
VAR 

DevBuf: TDevBuf; {Buffer for Device to work in} 
begin 

Device ( ‘MyDevice’, @@MyIO, DevBuf) ; 


Changed chapters 


Routines for Input and Output PAGE 4.39 seuss: 
These are the routines that can be used for file I/O: 


Assign, Reset, Rewrite, Append, Close, Seek, FilePos, FileSize, 
Eof, Eoln, SeekEof, SeekEolIn, Read, Readin, Write, WriteLn, 
Page, BlockRead, BlockWrite, Rename, Erase, IOResult, 
SetTextBuf. 


General control routines 


These are the routines used for creating, erasing, renaming 
and opening files: 
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Assign, Reset, Rewrite, Append, Close, Rename, Erase, 
IOResult. 


Using Assign is the Turbo Pascal way of doing file I/O. Using 
Reset(F,Name) is the ST-Pascal way of doing things. The two 
ways of doing things can be mixed as longas afiletitle has been 
assigned to the file F using any of the calls that accepts Title as 
a parameter. | 


Assign(F, Title) 

Prepare the file F for use. Put the name Title into the name 
field of F. 

If Assign is NOT used, the routines Reset, Rewrite and 
Append MUST supply a name in there calls. 


Reset(F) 

Open the file F for reading. If the file is already open it is first 
closed. 

The file must already have been given a name using 
Assign(F,Title) (or 

Reset(F,Title)). Ifthe file is already open itis first closed. The 
file is read only if it is a text file. 


Reset(F, Title) 
Open the file named Title. Works like the sequence 
Assign(F,Title), Reset(F). 


Rewrite(F) 

Open the file F for writing. If the file is already open it is first 
closed. 

The file must already have been given a name using 
Assign(F,Title). If thefile named Title already exists, it is 
deleted. The file is write only if it is a text file. 
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Rewrite(F, Title) 
Open the file F for writing. Works like the sequence 
Assign(F,Title), Rewrite(F). 


Append(F) 

Only for textfiles. Open the file F for writing. The current file 
position is set to the end of the file. If the file is already open 
it is first closed. 

The file must already have been given a name using 
Assign(F, Title). 


Append(F, Title) 
Open the file F for writing. Works like the sequence 
Assign(F, Title), Append(F). 


Close(F) 
Flush unwritten data and close the file. 


Rename(OldName, NewName) 
Rename a file from OldName to NewName. Both parameters 
are string types. 


Erase(Title) 
Delete the file from the disk. 


[OResult: Integer 

Return the result of last input or output operation. Zero is 
returned when errors has occurred. IOResult gets cleared by 
this call. 


bes 
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SetTextBuf(F, Buffer) 
SetTextBuf(F, Buffer, Size) 

Assign an I/O buffer to a text file. The default buffer size is 
128 bytes. If size is not specified, the whole Buffer is assumes 
as if SizeOf(Buffer) was written. SetTextBuf must be called 
right after Assign. It is also allowed to call it after Reset, 
Append and Rewrite before any I/O operations has occurred. 


Device Driver (PAGE: A4-1) 


It is possible to define your own devices in GTi Pascal. They 
are activated byReset, Rewrite and Append calls when 
referenced by there logical name. 


A device is installed with a call to: 
Device(Name: String; IOprocedure: Pointer; DevBuf: 
TDevBuf). 


The call Device(‘MyDriver’,@@MyDriver,DevBuf) installs 
the name along with the address of the IOhandler in the private 
buffer DevBuf. Do not use DevBuf after giving it to Device. 


The DevBuf is declared as: 
VAR DevBuf: TDevBuf; {Buffer for Device to work 
in} 


The [Oprocedure must have a heading like this: 
Function MyDriver(var F: TextRec): Integer; 


The DevBuf buffer must be globally declared to ensure it is 
not overwritten later on. Your program will crash on the next 
Reset if DevBuf is destroyed. 


By looking at the flags the routine can see why itis called. The 
function value returned is put into the IOResult variable, 
forcing a runtime error if $I+ is used. 
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The routine gets called by Write, Writeln, Page, Read, 
ReadlIn, Close, Eof, SeekEof, Eoln and SeekEoIn whenever 
input or output must be performed. 


fInpFlag is set when the driver should read fBufSize bytes 
(characters) into the buffer fBuffer’. fBufPos is then set to 
zero, and fBufEnd is set to show how many bytes actually got 
read. Whenever zero byte is read, Eof is true. 

fOutFlag is set when the driver should write fBufPos bytes 
from the buffer fBuffer’. fBufPos is set to zero if the data is 
written. Itis legal not to do anything if the buffer is not full, that 
is if fBufPos does not equal fBufEnd. 


A skeleton driver: 
Function MyDriver(var F: TextRec): Integer; 
var 
Ps Integer; 
Chis char: 
begin 
MyDriver:=0; {IOResult :=0k} 
With F do begin 
if fInpFlag then begin 
fBufEnd:=0; 
repeat 
Ch:=ReadKey; 
fBuffer* [£fBufEnd] :=Ch; Inc (fBufEnd) ; 
until (Ch=#10) or (Ch=%*Z) or 
(fBufEnd=fBufSize); 
end else {Doing output} 
{if fBufPos<>fBufEnd then {Always or when 
culd } 
begin 
for P:=0 to fBufPos-1 do 
WriteCh(fBuffer%*[P]); 
fBufPos:=0; 
end; 
end; 
end; 
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HighSpeed Pascal License Statement 

This software is protected by law and international treaty provisions. You may copy the 
software solely for back-up purposes, all other copying of the software is expressly 
forbidden. 

This software must only bee used by one person at one computer at the same time 
If the software is to be transfered to another computer it must be removed from the 
previous computer, so their is no possibility of the software being used at more than 
one location at a time. 

Programs written with the HighSpeed Pascal Compiler may be used, given away, or 
sold without any license or fee to D-House or their agents. 

The sample programs included on the HighSpeed Pascal diskette may be used freely 
as part of your compiled programs. You may not sell, or give away those sample 
programs as stand alone programs or as source. 


Limited Warranty 

As the only warranty under this agreement, and in the absence of accident, abuse or 
misapplication, D-House warrants, to the original Licensee only, that the disk in this 
package is free from defects in materials and workmanship under normal use and 
service for a period of 90 days from the date of payment as evidenced by a copy of the 
receipt. 

D-House’s only obligation under this agreement is, at D-House’s option, to either: 
1) Return payment as evidenced by a copy of the vendor’s receipt 

2) Replace the disk that does not meet D-House’s limited warranty and which is re- 
turned to D-House with a copy of the vendor’s receipt. 

The software and written material is provided ,,as is‘ without warranty of any kind 
including the implied warranties of merchantability and fitness for a particular pur- 
pose, even if D-House has been advised of that purpose. 

D-House specifically does not accept any liability for the operation of the software 
neither indirect, consequential or incidental damage arising out of the use or inability 
to use such product, even if D-House has been advised of the possibility of such 
occurrence. 
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Registration 

For your own and our benefit please register your HighSpeed Pascal. 

Return the enclosed Registration Card or the registration side in this manual to qualify 
for: 


Add-ins and application: 

A number of very interesting add-ins and application to the HighSpeed Pascal will 
follow. You only have the possibility to integrate them in your HighSpeed Pascal if you 
are a registered user. 


Product Upgrades: 
We are continually improving our HighSpeed Pascal with enhancements and new 
features, only registered users can achieve these upgrades. 


Technical Information: 
Registered owners are among the first to hear about new products, developments, 
enhancements add-ins and applications from D-House. 


HighSpeed Pascal User’s Magazine: 
We plan to publish a magazine for registered HighSpeed User’s. 


Free Technical Support: 

Besides any support you may get instantly from your dealer or distributor, D-House 
gives you unlimited access to customer support by writing or sending a fax if you are 
a registered user. 

(We offer technical support, however, we are not able to tutor in programming, please 
keep this in mind !.) 

To reach our Technical Support by mail, write (or fax): 


D-House 1 ApS. 
Transformervej 29 
Dk-2730 Herlev 
Denmark 

Fax.: (+45) 44 53 95 44 
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Registration Card 


Product name: HighSpeed Pascal Serial number: 


Date: 

Mr. Mrs. 
Last name: 
First name: 


Company: 


} 


Department: 

Address: 

Zip/Postal Code: State: 
City: 

Country: 

Phone: Fax: 


Which other compilers do you also use: 


Comments: 
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D-House 
Transformervej 29 
DK-2730 Herlev 
Denmark 


Fax.: (+45) 44 53 95 44 
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Introduction 


No doubt that Pascal is a success as a programming language. It is widely used all over 
the world, and used as a teaching language in many schools. 

In the PC world the “state of the art” Pascal Compiler is Turbo Pascal from Borland 
mainly written by Anders Hejlsberg. 

In the Atari ST World their are many Pascal Compilers but no “state of the art” . We 
have tried to make a “Turbo Pascal look alike” for the Atari World. We call it 
HighSpeed Pascal. 

Our managing software engineer, Christen Fihl has been working with Anders 
Hejlsberg and the Turbo Pascal team for six years, now he is working with HighSpeed 
Pascal. 

HighSpeed Pascal is more than just an extremely fast Pascal Compiler. We know that 
the compiler is the programmers work place, so we try to make this work place as 
efficient as possible. 

We do not give you three stand-alones, editor, compiler and linker to: 


first edit - 

then compile - 

then link - 

then run - your programs 


In HighSpeed Pascal we put it all together in an easy-to-learn and easy-to-use 
integrated development environment. With HighSpeed Pascal you simply: 


edit and run your programs. 


| We call this integrated development package The HighSpeed Integrated Development 
Environment (HIDE). 
The first version of HighSpeed Pascal is available herewith. We will continually 
improve our HighSpeed Pascal with enhancements and new features. So if you ask 
“Ts there a new version of HighSpeed Pascal on it’s way ?”, the answer will always 
be “Yes, we are working on it !”. 
To make this work as good as possible we will need your help so please report any bug 
you identify as well as proposals for enhancements to: 
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D-House Aps. 

Att: HighSpeed 
Transformervej 29 
DK-2730 Herlev 
Denmark 

Fax: (+45) 44 53 95 44 


For usable proposals we promise to send a gift (Free upgrade, free add-in etc.) 

We have tried, and will in the future try to make HighSpeed Pascal compatible with 
source code from Personal Pascal and ST-Pascal by including the unit STPascal. 
Also we will try to make it as compatible with Turbo Pascal source codes as possible. 
Please write/fax to us with any of your experiences with the compiler. 

Please don’t try to learn the Pascal Language from this manual. Andalthou gh we have 
included a GEM chapter, please don’t try to learn programming in GEM from this 
manual. This was not our intention, if you are a novice please find a suitable book in 


our appendix book list. 


Also we take for granted that you are familiar with using the GEM environment, if not, 
please read the ,,Atari owners manual“ supplied with your Atari Computer. 


1.2 Introduction 


Installation 


In this chapter we will get you started with HIDE (HighSpeed Integrated 
Development Environment). We will tell you how to install the program, anda little 
about the files contained on your disk(s). 

The disk(s) contained in the package are formatted for standard 3 1/2" Double Sided 
disk drive. 

!! Remember to make a back-up copy of the disk(s). (This is the only legal copy of the 
program you are allowed to make) 

Minimum system configuration to run the HighSpeed Pascal is: 

520 Kb. 1 double sided floppy (preferably). A single sided floppy can also work. 
The disk that comes with HighSpeed Pascal includes two versions of the Pascal 
Compiler: a HighSpeed Integrated Developing Environment (HIDE), and acommand- 
line version. 

You won’t need all the files from your distribution disk(s) on your personal 
HighSpeed Pascal system disk. 

Actually you can work with as little as the HSPASCAL.PRG and still use the HIDE 
system. 


Here is a summary of the files contained on the distribution disk(s): 


Information files: 
READ.ME 


he compiler files: 

HSPASCAL.PRG 

The HighSpeed Integrated Developing Environment version of the HighSpeed Pascal. 
Use this to edit and run your programs. 


HSPC.TTP 
The command-line version of HighSpeed Pascal. If you would like to write source 
text in your own editor you will probably want to use this 


PASCAL.HLP 
This contains the on-line help text used by HIDE. 
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PASCAL.DAT 
Defaults settings, made by the HIDE version 


PASCAL.CFG 
File made by the user. For use with HSPC.TTP 


PASCAL.LIB 
A collection of unit files in one resident library. 


Utility programs: 

UNITS\LIBMAKER.TTP 

When you compile a unit, the resulting code is placed in a *.UNI file. With the 
program LIBMAKER.PRG youcan chain several units into a library, and then using 
the editor command OPTIONS/General make this library resident. 
UNITS\LIBMAKER.PAS 

Source code to the unit to library converter. (You can change this if youneed to move 
a lot of files), 


Unit files: _— ss 

UNITS\GemDecl .UNI Standard Gem declarations (and some utilities) 
UNITS\GemAES .UNI Standard Gem routines 

UNITS\GemVDI .UNI Standard Vdi routines 

UNITS\STPASCAL.UNI Implementation of the routines from ST-Pascal 
UNITS\EasyGraf.UNI A demonstration unit, using the VDI library. 
UNITS\Dos.UNI A lot of routines for TOS interface 

UNITS\BIOS. Interface for the BIOS and XBIOS routines 


All unit files are already included in the PASCAL.LIB file. 
The Dos unit is included in the compiler itself. 


Demonstration files 

DOSDEMO\*.* Demonstration programs 

GEMDEMO\*.* Gem demonstration programs 

GRAFDEMO\*.* Graphic demonstration programs without use of windows 


* DOC files 
Documentation files. Read these !1! 


Decide which files you need, choose which version of the compiler you want to use 
(probably the HIDE version), the .HLP file if you want on-line help available, 
LIB MAKER if you want to. If you do not know which then take all, and copy them 
to your personal “HighSpeed Pascal Systemdisk”. 

If you have a disk based system copy them to a floppy disk. If you have asystem with 
harddisk copy them toa folder (directory) on your harddisk. 


2.2 Installation 





Getting started 


In this chapter we will get you started with HIDE (HighSpeed Integrated Developing 
Environment). 


You will learn how to load the HighSpeed system intomemory , how to enter, edit, save 
and run your programs and how to use the on-line HighSpeed help system. 

On top of that you will get an introductory to what a unit is and how to make your own 
units. 


During the reading of this chapter you willbe requested to enter four Pascal programs 
into the editor. None of these programs willbe all that useful, they are merely examples 
of simple and easy-to-enter programs. 

If you spot any syntactic errors in the listed programs, don’t correct them. (They were 
created on purpose, so that you can get started on using the on-line help system.) 


To see allabout the menu selections explained in detail read the appendix ,,Menu™ 


Loading HighSpeed 

Loading from a disk drive:Insert your HighSpeed diskette into your disk drive, Double 
click on the icon for the drive to open its file window. Start HighSpeed by double 
clicking on the file named HSPASCAL.PRG. 


Loading from ahard-disk:Double click on the icon for yourhard-disk. If you have copied 
the HighSpeed files into a subdirectory you must go to that subdirectory. When this has 
been done, you can start the HighSpeed system by double clicking on the file 
JHSPASCAL.PRG. 
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The menu 





Compile 
k 


ake 
Build All 
Find Error 
Destination: Menor 
Primary File: 


EE AE ht OOS SD ED CEE OO tt BRS tet OE BAP OOD hd aeteh ED Oe ne He be tend inet ant one 


Look closely at the screen, it consist of two parts, the main menu bar, and the editor 
window. You choose a menu selection from the menu by placing the arrow over a 
choice. By doing so another menu will drop down, from this window point to the 
choice you want, and select it by clicking the mouse. 


Short-cuts 

Instead of selecting with the mouse you can usea short-cut. You can see the short-cuts 
to the right of the choice’s in the drop down menus. 

New “N Means that you should hold down the ,.Control“ key and at the same time 
press the key ,,N“. 

Run OR Means that you should hold down the ,,Alternate“ key and at the same time 
press the key ,,R“ 
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Help 








Desk ALLER eS I 


Program Sativa tein Exatples 


Begin 
Writeln( Gis 


Function Abs( N ) : (Same ee as S parameter) 


Returns the absolute value of the parameter H. 
Kk is an integer-type or a real-type expression, 
See also: Int, Irunc, Round 
Program Abs_Deno} 
Const 
Negative = -1868; 
Positive = 1888; 
Begin 
Writeln(Negative,' becomes ',ABS (Hegative)); 


, Qe SE EASE is still ',ABS(Positive)); 
nd, 





From anywhere in the program (except in the dialogue boxes) HIDE provides on- 


screen help at the touch of the HELP key. Pressing HELP will open a help window, 
the help window can contain one or more keywords (an item with an underscore) on 
which you can get more information. To get more information just double-click a 
keyword and a new help window will appear. Pressing the ,, Undo“ key close the Help 
window. Youcanalsoclick on a word inthe editor forexample ,,Abs“, press the ,,Help* 
key and get help on the Abs function. 
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Creating your first program. 

Before entering and editing programs using the HighSpeed editor you must first open 
a new and empty editor window. This is done by clicking on NEW in the FILE menu 
or by pressing the CONTROL key and N at the same time. Either way a window with 
the title NONAME.PAS will show up on your screen. In the upper left corner you will 
see the blinking cursor. You are now ready to enter in your first HighSpeed Pascal 
program. 

Type these few lines: (At the end of every line you press ,,Return“) 


Desk File Edit Search Compile Options 
Siuieitie: digi Biiaieei Hess stata WONAME , PASE: 
Progran First} 
iBegin 

Clrscr} 
. Writeln('Hello World! ')3 

nd, 






Be sure to check that the first, third and the fourth line is ended with a semi-colon (;) 
and that the last line is ended with a period (.). If this is not the case use the mouse or 
the arrow-keys to place the cursor and correct the error(s). 


Before you can mun your program you must first give itaname since HighSpeed cannot 
run a NONAME.PAS program. To name a file choose SAVE or SAVE AS in the FILE 
menu. When you have done this an item selector box will appear on your screen. Now 
type in the name under which you wish to save your program (i.e.. FIRST.PAS) and 
press the RETURN key. When HighSpeed has finished saving your program you will 
notice that the title on the editor window now corresponds to the name you just entered. 
You are now ready to run your program. Do this by choosing RUN in the COMPILE 
menu (or by pressing the ALTERNATE key and R at the same time). The screen will 
now be cleared anda line reading ,,Hello World!“ will be displayed. The next line will 
read ,,Press a key...“*. Do so and you will again be able to see the editor window. 

If you do not wish the ,,Press akey...‘‘ message to appear every time you runa program 
from within the editor, you can disable it in the OPTIONS/Run menu. 

When your program has finished executing, you are returned to the place in your 
program where you started. You can now continue the editing, 
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The User Screen 

Once you’re back in the HIDE after executing the program, you can view the program 
output by choosing the SEARCH/User screen (Esc) command. By pressing any key 
you return to HIDE. 


You are now familiar with the following: 
Opening a new editor window. 
Entering a program. 

Saving a program. 
Running a program. 
Showing the User Screen 
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Using the on-line help system. 
Open a new editor window by pressing CONTROL and N at the same time. When the 
editor window appears start entering this program: 


__ Desk File Edit Search Compile Options 





SE3:8:3S SS Semin 
SSeS SSeS 320 


Begin 
Mriteln( ABS('R') )3 
End,| 


Make sure that you entered each line correctly and then name your program by 
choosing SAVE or SAVE AS in the FILE menu. 


When you try to run the program HighSpeed will immediately stop the compilation and 
display an error message. Acknowledge the message by pressing the RETURN key. 
As you can see from the location of the cursor, the problem is the parameter to the ABS 
function. In order to get some aid from the help system simply double click on the word 
ABS and press the HELP key. 

When you have done this a help screen will appear, showin g you the syntax of the ABS 
function, a small explanation of what it does, together with a small demo program, On 
top of all this there is a ,,See Also“ line with anumber of underlined keywords. (Double 
clicking on one of these will bring up new help pages). 

As you can see from the ABS function help page the ABS function takes an integer- 
type or real-type parameter and not a char-type one as we entered earlier. Now close 
the help window by pressing the UNDO key, correct the error and your second program 
will be able to run. 
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Using a standard HighSpeed unit. 

In your third program you will learn how to use units. A unit is a collection of pre- 
compiled procedures, functions and data. The smart thing about units is that they don’t 
have to be compiled every time you compile a program that uses them. They only have 
to be linked with your program. A fact that should encourage you to use units whenever 
possible, thereby increasing compilation speed. 

Now open a new editor window, and start entering the following program: 

file Edit Search Compile Options csmmmmmen 








HisHarsa3 


tiittiesesy 


{ We Want to use the DOS unit, } 


egin 
: ‘a DiskSize(8) )} { DiskSize is a function from DOS, } 
2End, 


(If you doubt what the DiskSize function does, double click on the word DiskSize and 
press the HELP key.) 


Name your program, and then run it. 


Creating your own unit. 
The following will show you the steps necessary to create your own unit. 
Let’s say that you have created a function called Spaces: 
} 
Function Spaces( N : Byte ) : String; 
Var 6. ' String: 
Begin 

PiliChantsS{ij, N, #32) 

S(O) s= Chen s 

Spaces := S; 
End; 


If youuse this function in several of your programs and consequently you haveanumber 


of identical copies of the function. 
What happens if you need to make a change to the Spaces function? 
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You will have to locate all the programs that uses the Spaces function, and then make 
the same change in all of these programs! 

Why not put the Spaces function into a unit?. Doing so will make the future changes 
to the Spaces functions much easier since the only place you will have to make the 
changes is in the unit. 

Open a new editor window and start entering the following, which is a unit called 
UTIL, containing the Spaces function: 


Desk File Edit Search Compile 0 tions 






PREM E SPR PELs 22 SllSas eee: adidas a eee 
SS ue ae el Ft} te te ee et 2a oa Ses aes SST ar ari bei ie ies alld de Le ie eerie nese pth 


dhs fh ae 


rUMIT Util; The unit nane, 
i Interface { Start of public synbols, } 
‘Function Spaces( N : Byte ) : String; 
£98 Inplemnentation { Start of private synbols, } 
iFunction Spaces( WN { Byte ) } String; 
‘Var S$ : String; 
i; Begin 
FillChar(€ SCL], MW, #32 ); 


$(8] := Chr(n); 
Spaces i= S$} 


{ Initialization statements } 
{ goes here, } 


Name your unit UTIL.PAS by choosing SAVE or SAVE AS in the FILE menu. Now 
that you have created a unit, let us use it in the following program: 


_Desk File Edit Search Conpile Options 





ea Program Fourth} 

. Uses UTIL; { We want to use the UTIL unit, } 
fc Begin 
eq Clrscr; 


Writeln( Spaces(48),'HELLO!! ); 
End.,| 


Name your program FOURTH.PAS. 

Since you have created a new unit which has not yet been compiled you must now 
choose BUILD or MAKE in the COMPILE menu. This will make HighSpeed compile 
your UTIL unit as well as the program you just entered. 
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The menu 


To see all about the menu selections explained in detail see the app. “Menu”. 


Desk: 
Information about copyright and compiler version. 


File: 

Loading existing files .. 

Creating new files .. 

Saving the file .. 

Printing a file - in the editor 

Quitting HighSpeed 

Execute a program outside HighSpeed 


Edit: 

Cut/Copy/Paste text 

Indent and outdent text 

Get info on source program 


Search: 
Find and replace text. 
Toggle between windows 


Compile: 
Compile, Make or Build a program. 


Set the destination of the compiled code (disk or memory). 


Find a run-time error. 
Set the primary file. 
Get information about the compiled file. 


Options: 

Contains general settings that control how HIDEks: 
- General settings. 

- Compiler settings. 

! Linker settings. 

- Run settings. 

Save all options to disk. 

Also contains the help system. 
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3.10 Getting started 


Language Elements 


Basic Symbols 
The smallest units of text in a Pascal program are called tokens. They are classified into 
special symbols, word symbols, numbers and character strings. 


These are the basic building blocks: 


) Letter = 
A to Z, a to z and underscore ‘_’. 
Digits= 
The ten digits from 0 to 9. 
HexDigits = 
The normal digits, A to F and a tof. 
Blank = 
All control characters and the space characters. 
Special = 
t= *¥ fmeo(y Lid ke oe FE** OS 
> = = 3: ‘% oo Cs = Ee 


The last line consists of nine symbols, two characters each. 
Below mentioned symbols have the same meaning: 


(* and { 
*) and } 
(. and [ 
-) and J 


Separators 

Separators can be a blank, anewline or acomment. Actually all control characters will 
work. Two word symbols must be separated by at least one separator. Otherwise the 
compiler will see only one symbol. 


Comments 

Comments can be inserted anywhere where you are allowed to insert a blank or new 
line. A comment is surrounded by { and } or by (* and *), But not by { and *) and not 
by (* and }. 

A comment can span over several lines. 
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{ This is a comment } 

(* This is also a comment *) 

{ This is also a comment *) } 

{ But this comment never ends! *) 


If the first character right after the opening { or (* is a$ character, then the comment 
is compiler directive. 


Program lines 

Each program line can be 127 characters long. The rest of the line is simply discarded. 
This can be dangerous for your programs, because you might not necessarily get a 
compile error. One example is starting acommentin position | and ending it in position 
135 of the line. This comment will last forever, or until the end of another comment. 


Reserved Words 
These word symbols are reserved in HighSpeed Pascal, and cannot be redefined. 


WordSymbol = and, array, begin, case, const, div, do, downto, else, 
end, external, file, for, forward, function, goto, if, implementation, 
in, inline, interface, label, mod, nil, not, of, or, packed, 
procedure, program, record, repeat, set, shl, shr, string, then, to, 
type, unit, until, uses, var, while, with, xor. 


Identifiers 7 | 
Identifiers denote labels, constants, variables, procedure, functions, units, programs 
and fields in records. An identifier consists of a letter symbol followed by letter and 
digit symbols. 
Identifier = 

Letter { Letter | Digit } 


Numbers 
The compiler is made for number crunching, so we need numbers too, 
Some examples: 


v, 2 da 
$12 S$AA55 SOO0F 
1.2 3.1415927 1.23e17 le-9 


Numbers used for integer types are those made by using digits only. They can also be 
written using hex notation, by prefixing it with a $ character. 


Numbers for reals are made by using the normal engineering notation format. 1.23e4 
is the same as 12300.00 or 12300. 
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UnsignedNumber = 
UnsignedInteger | UnsignedReal. 


UnsignedInteger = 
DigitSequence | “#” HexDigitSequence. 

UnsignedReal = 
UnsignedInteger “.” DigitSequence [“e” SCaleFactor] | 
UnsignedInteger “e” ScaleFactor. 


ScaleFactor = 
[ Sign ] UnsignedInteger. 


Sign = 


Wale | 4 


DigitSequence = 
Digit { Digit }. 


HexDigitSequence= 
HexDigit { HexDigit }. 


SignedNumber = 
SignedInteger | SignedReal. 


Signedinteger = 
[ Sign ] UnsignedInteger. 


SignedReal = 
[ Sign ] UnsignedReal. 


Strings 
A character string are sequences of characters within quotation marks. A quotation 
mark can itself be included by entering it twice. 


A string can havea length of zero, one or more. It is always compatible with variables 
of type strings. With a length of one, it is also compatible with variables of type char. 
With a length of N it is compatible with packed array [1..N] of char. 


Like Turbo Pascal, HighSpeed Pascal can include control characters to be entered into 
the string. They can be included as #nn oras AC. #nn enables you to write any ASCH 
character in the range 0 to 255. 4C enables you to write normal control characters in 
the range from C=’A’ to C=’Z’. It is easier to write “Z instead of #$1A or #26. 
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CharacterString = 
“™ { StringElement } “** 


StringElement = 
“7 | AnyCharacterExceptApost rophe. 


Some examples: 
‘Plain vanilla’ 
*Tt'’*s Ok’ #1 3#10 


V7 


Va! 
VA? 


The control characters entered into a string must be entered outside of the apostrophes 
without using any spaces. 


Constant Declarations 
A constant declaration declares a constant identifier, and gives it a value. 


ConstantDeclarationPart = 
[ “const” ConstantDeclaration 
{ ConstantDeclaration } ]. 


ConstantDeclaration = 
Identifier “=" Constant. **". 


Constant = 
[ Sign ] UnsignedNumber | 
[ Sign ] ConstantIdentifier | 
CharacterString. 


ConstantIdentifier = 
Identifier. 


These constants are predefined in HighSpeed Pascal: 


false, true of type boolean, 
maxint, maxlongint of type integer (longint) 
jone of type real (extended) 


Compiler Directives 

Source code control is done by using compiler directives. 

A compiler directives is acomment where the first character is a $-sign. No spaces are 
allowed before the dollar sign. 
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{SDefine Debug} 

(*SIfdef Debug *) 

{SR-} 

{ SNot a compiler directive! } 


Types 
Every variable in Pascal has a type. The type of a variable determines the values that 
the variable can assume and the operations that can be performed on it. 


Type declaration part 

The type declaration follows right after the “type” keyword. In HighSpeed Pascal there 
can be more than one “type” declaration block, anditcan be mixed with constant, label, 
procedure, function and variable declarations. 


TypeDeclarationPart = 
“type” TypeDeclaration { TypeDeclaration }. 


Example: 
Type 
NewInt = Integer; 
BestInt = NewlInt; 
MyChar = Char; 
Color = (Red, Green, Blue); 
Byte = Qvadoo; 
Weight = 10..25; 
PRect = “Rect; 
Rect = Record 
x, Vy wy os Integer? 
end; 
Rects = Array [1..99] of Rect; 
Mixed = Array[1..4] of Record a,b: Integer ; 


Type declaration 
TypeDeclaration = 
Identifier “=” Type “;”. 


Type = 
Typelidentifier | 
SimpleType | 
StructuredType | 
StringType | 
PointerType. 
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Simple Types/Ordinal Types 


SimpleType = 
OrdinalType | RealType 


A simple type defines an ordered set of values. This means that you can compare to 
variables (of same type) and see if one is greater than the other. 


OrdinalType = 
SubrangeType | EnumeratedType | OrdinalType 


Ordinal types can be worked on using these five routines: 
- Ord retums the ordinality of a value 

- Succ returms the value right after the one given 

- Pred returns the value just before the one given 

- Inc increments the value (default to next value) 

- Dec decrements the value 


Succ (Pred(y)) = y 


The opposite function of Ord can be made by using type casting. 
The boolean value True=Boolean(1). Do not make constructions like this: 


if Boolean (2)=true then ThisMightBeExecuted; 


These other words for types: Integer, Boolean, Char, Enumerated and subrange are all 
of ordinal type. 


Integer | 
HighSpeed Pascal gives you five predefined integer types: ShortInt, Byte, Integer and 
LongInt. They are defined as: 


SHOrtine: = 126. «127% 

Byte = Oi02552 

integer: = =32766..02 lo7? {-MaxInt-1..MaxInt} 

Longint = 2147483648. .2147483647; {-MaxLongInt-1..MaxLongInt} 


Word = (Q..65535 


A variable of type ShortInt uses one byte of memory. Byte and Integers will use 2 bytes, 
and LongInt will use 4 bytes. 


Boolean 
The Boolean type defines two constants, True and False. They are defined as: 


Boolean= (False, True) ; 


Note that: Ord(False)=0, Ord(True)=1 and that False<True. 
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Char 
The Char type gives 256 different characters values. The character set used is the one 
used on the Atari. The biggest problem you will get with most character sets, is the way 
they sort national characters. You cannot easily sort characters if they uses 8-bit 
characters as all national letters does. This does always hold on the Atari: 

1 Ohl “ \y/ < SS < ie ts ee V4! — \5e < 16/ < \7! ral 


‘8? < \O! 
Ar < ‘B’ < eros, vy? a wt 
Val < ‘bh! a = eas Ay? < \o! 
1Or < VAS < AS < Va’ < \o! 
Enumerated 
EnumeratedType = 


“(“ IdentifierList “)”. 


IdentifierList = 
Identifier { “,” Identifier }. 


Examples of enumerated types: 
Game = (Club, Diamond, Heart, Spade) 
Weekday = (Monday, Tuesday, Wednesday, Thursday, Friday, 
Saturday, Sunday) 


The first identifier has an ordinality or zero. The following one, and so on. 


Subrange 
A subrange, as the name says gives you access to a limited range of the values in a host 
type. The subrange is specified by writing the lower and the upper limit wanted. 
WorkDay = Monday..Friday; 
Shortint: = -128..1277 


Note that Ord of an enumerated type variable cannot be less than zero, while Ord of 
a subrange type can be anything. 


Real 

So much about ordinal type. The last type in SimpleType is RealType. Real types can 
like normal ordinals be compared, but they are not very useful for counting, because 
there is no ordinality on reals. You cannot be sure that you can change a real just by 
adding one to it! 


All real types are predefined and cannot be extended by new user types. Three kinds 
of reals are implemented: Single, Double and Extended. 


Note: The type Real is the same as Double. This can be redefined if wanted simply by 
writing: Type Real=Single; 
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The type Extendedis an internal formatused when calculating or converting real values. 
It can be used as a normal type in your programs. 

If used as Type Real=Extended; it will give: 

-faster code because variables does not have to be converted before calculations 

- better precision on standard arithmetic 

- but not much better precision on the trigonometric functions 


Single and double are IEEE compatible but the extended format are not. 
This may give problem if extended are used for disk files or other interface purposes. 


Single reals are moved around very fast in memory because they only take four bytes 
But. they still gets converted when used in procedure calls and expressions. 


This is what you get from the reals: 


Type Range Useful digits 
Single 3.4e-38..3.4e38 7-8 
Real=Double 1.7e-308..1.7e308 15-16 
Extended 1.1e-4932..1.1e4932 18-19 


Structured Types 

Simple types can only hold one value for each variable. Structured types holds more 
than one value at a time. Moreover, a structured type may be packed. If the structure 
type is prefixed with “packed”, then the compiler will try to save storage. Set types are 
always packed. 


The components of a structure may itself be structured, 


StructuredTypes = 
StructuredTypeldentifier | 
[ “packed” ] UnpackedStructuredType. 


UnpackedStructuredType = 
ArrayType | RecordType | SetType | FileType. 


StructuredTypeIdentifier = 
TypeIdentifier. 


Array 
The array type has only one element type (component type), but can contain, a fixed 
number of them. 
ArrayType = 
“array” “([* IndexType: { “,* IndexType } “]” “of” 
Component Type. 


IndexType = 
OrdinalType. 
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ComponentType = 
Type. 


The array can be multidimensional. If it is, the declaration can be written in different 
ways: 


Wayl=array [boolean,7..9] of integer 
Way2=array [boolean] of array[7..9] of integer; 


Both can be accessed (indexed) in either of these ways: 
n:=Wayl[true] [8]; or n:=Wayl (true, 8]; 
n:=Way2 [true] [8]; or n:=Way2 (true, 8]; 


Packed array[1..N] of char does have special properties, not given to other array types: 
They can be assigned to strings. 


Note: When you write array[7..9] of integer; you do create a new subrange type 


NoName=7..9;, it just don’t have a name. 


Record 
Array type gave one element type but could contain a fixed number of them. Record 
types are able to contain a fixed number of components with different types. 


RecordType = 
“record” [ FieldList [“;” ] ] “end”. 


Fieldbist = 
FixedPart [ “;” VarientPart ] | VarientPart. 


FixedPart = 
RecordSection { “;” RecordSection }. 


RecordSection = 
IdentifierList “:” Type. 


VariantPart = 
“case” VariantSelector “of” Variant { “;” Variant }. 


Variant = 
Constant { “,” Constant: } “2” ™(* FielidList. “)”. 


VariantSelector = 
[ TagField “:” ] TagType. 
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TagType = 
OrdinalTypeIdentifier. 


TagField = 
Identifier. 


The Identifier List names each element, as in a variable declaration. 


A normal record without variant fields look like this: 
DateRecord= 
record 
Year: Integer; 
Month: 1..12; 
Day: | ees 
end; 


With a variant field it looks like this: 
Graphix= 
record 
X,Y: Integer; 
case Obj: ObjType of 
Dot: Os 
Line: (x2,y2: Integer); 
Circle: (Diameter: Integer) 
end; 


n example of its use: 
var G: Graphics; 
begin 
with G do begin 
x:=7;7 y:=8; Obj:=Line; x2:=13; y2:=45; 
Drawlt (G) ; 
end; 
end; 


One use of variant part is for data conversion: 
var CV: record 
case integer of {Does not use any space} 
QO: (L: LongInt) ; 
1: (Hi,Lo: Integer) ; 
end; 
begin 
CV.L:=$00110012; 
writeln(CV.Hi,’ ‘,CV.Lo); 
end; 
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Set 
A set-type variable can contain zero or more elements of the base type. 
It can only hold zero or one element of each value. 


setType = “set” “of” BaseType. 
BaseType = OrdinalType. 


In HighSpeed Pascal the ordinallity of all elements of a set type must be within the 
range of 0..255. You cannot make a set type as: set of 0..999999. 


Examples: 
set of char 
set of 10..20 


Program Test; 
Var 
St Set of 0..99% 
begin 
S:=(7, 9,13, 7); {Three elements, 7, 9 and 13} 
end. 


File 

File type is a linear sequence of components that are all of the same type. 

The component type can be any type as long as it does not include any file type ele- 
ments. 


The array type looks almost as a file type, but is of fixed size. The file type can contain 
from zero to "x" elements. x" is determined by the amount of avaliable storage space. 


The predefined type: Text is a special file type in which the elements are lines of text. 
A variable of type Text is called a textfile. Readln, eoln and other procedures and 
functions works on textfiles. 


FileType = 
“file” “of” ComponentType. 


String 

A string type value is a sequence of characters that has a dynamic length within a fixed 
maximum length. The length can range from zero for the empty string up to 255 for 
a string of maximal length. 


StringType = 
“string” [ “({“ SizeAttribute “)” ]. 
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SizeAttribute = 
UnsignedInteger. 


The SizeAttribute specifies the maximal length allowed for the string variable, not the 
actual length of the string. 


String type values can be compared using equal, greater-than etc. 


Examples of comparison: 
‘Hello’ = ‘Hello’ 


‘Hello’ < ‘Hello World’ 
‘Hello’ > 
‘Hello’ < ‘hello’ 


The char elements in a string can be accessed like components of an array type. 
Special procedure and functions exist for strings. The operator + can be use for 


concatenating strings. 


Pointer 
A pointer type defines a set of values that points to variables (dynamic or not) of a 
specified type, the base type. 


PointerType = 
““” BaseType. 


BaseType = 
OrdinalType. 


The base type must be declared before the end of the current type definition block. 


Values can be assigned to pointers with the New procedure, the @ operator or the Ptr 
function. 
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Variables 


Variable declaration part 
The variable declaration lists all the variables used in a program, unit, procedure or 
function. 


VariableDeclarationPart = 
“var” VariableDeclaration { VariabelDeclaration }. 


Example: 
var 
Counter, 
M,N,O ; Integer; 
Cl, C2: Color; 
BigSet : Set of Byte; 
Fl s Jexcy 
F2 : File of Rect; 
FileMix : File of Mixed; 


Variable declaration 
A variable can only take values according to the type used for its declaration. A variable 
is undefined until it is assigned a value. 


VariableDeclaration = 
IdentifierList “:” Type “;”. 


Variables in different places 

Global variables are those in programs and units, but outside of procedure and func- 
tions. Each global variable can only be as large as 32 KByte, but the total size of globals 
are not limited by the compiler. 


Variables in procedures and functions are created when the procedure is activated and 
removed right after the activation is terminated. Each procedure can only have 32 
\KBytes of local variables, but the total size of the stack can be as large as memory 
allows. Using too much stack space might stop the program with a runtime error if the 
{$S+} is active. 


Dynamic variables are created on the heap with New and removed again with Dispose. 
The heap can be as big as free memory allows it 


Use of Variables 
Using a variable is called referencing a variable. 


VariableReference = 
[ VariableIdentifier | VariableTypeCast ] { Qualifier } 


Language elements 4.13 


Qualifiers 
Qualifier = 
[ Index | FieldDesignator | ““” ] 


A variable can be used just by writing its name thereby referencing the entire variable: 
RECte 
Person 
The variable can be followed by zero or more qualifiers, thereby referencing smaller 
and smaller parts of the variable: 


Rect .Pointl 

Rect .Point1.X 

Person[3].Name 

ZipCode[ Person[7].ZipIndex ] 
P(N} (8) .R?> 


Arrays and String indexes 
Whenever the referenced part of a variable is an array, it can be qualified with an array 
index. Strings can be referenced like arrays. 


Index = 
“[“ Expression { “,” Expression } “]”. 


The index used must be of an assignment compatible type with the corresponding index 
type used for the declaration. 


Multiple indexes or multiple expressions within an index can be freely used: 


AnArray [1,2,3] is the same as writing 
AnArray [1,2] [3] or as 
AnArray [1] [2] (3] 


As mentioned, strings can be indexed as normal arrays. A string is always defined as 
String[n]=array [0..n] of char (not exactly right). 
The first index [0] is the actual length of the string. Obtainin g the length of a string can 
then also be done this way: 

Length (Str) = Ord(Str[0J) 


Records 
Whenever the referenced part of a variable is a record, it can be qualified with a field 
designator. 


FieldDesignator = 

‘“.” Fieldidentifier. 
Person.Name 
Person.Name.First 
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Pointers 
Whenever the referenced part of a variable is a pointer, it can be qualified by writing 
a pointer symbol after the variable. 


Person.Father” 
Person.Next* 
p* ; 


Variable Typecast 
A variable reference can have its type changed by applying another type to it. This is 
done by writing the new type as a function taking the variable as argument, and re- 
turning the variable with the new type. The function name is the name of the new type 
wanted. 
VariableTypeCast = 
TypelIdentifier “(“ VariableReference vat de 


type 
TRect: record 
x, ye Integer; 


end; 
var 
Rs TRECC? 
L: Longint; 
begin 


L:=Longint (R) ; 

TRect (L) .y:=3; 

Inc (Longint (R) , 00020002) ; 
end. 


Expressions 

The productive part of a program is made by using expressions and statements. Ex- 
pressions are made up of operators and operands. Some operators are unary, that only 
takes one operand as “not true”, while others are binary and takes two operands as in 
+3". 


The operators have different precedences which tells which operator to use first when 
more than one operator is applied at a time. Parenthesized expressions are always 
evaluated first. If an operand is located between two operators of different precedence 
it is bound to the operator with the higher precedence. Sequences of operators of same 
precedence are executed from left to right. 
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Operator precedence: 
Operators Precedence Operator 
@, not lst unary 


x, f, Gi, wed, 
and, shl, shr 2th multiplying 


,t =, OF, xor 3th adding 


—~y Sp he Sy 
>, Sep ‘in 4th relational 


Expression syntax: 
Expression = 
SimpleExpression [ RelationalOperator SimpleExpression ] 


SimpleExpression = 
[ Sign ] Term { AddingOperator Term} 


Term = 
Factor { MultiplyingOperator Factor } 


Factor = 
UnsignedConstant | 
Variable | 
SetConstructor | 
FunctionCall | 
ValueTypeCast | 
“not” Factor | 
VariableReference | 
“@” VariableReference | 
“@” ProcedureIdentifier | 
“@” FunctionIdentifier | 
“(“ Expression “)”. 


UnsignedConstant = 
UnsignedNumber | 
CharacterString | 
ConstantIdentifier | “nil”. 


setConstructor = 
“[“ [ ElementDescription 
{ “,” ElementDescription } ] 
ik wt s 
ElementDescription = 
Expression [ “..” Expression ]. 
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Arithmetic Operators 

Arithmetic operators work on integer and real type operands and returns integer and 
real results. 

Unary arithmetic operations 


Operator Operation Type of Operand Type of result 
+ none integer/real integer/real 
= negation integer/real integer/real 


Binary arithmetic operations 


Operator Operation Type of Operand Type of result 
+ addition integer/real integer/real 
= subtraction integer/real integer/real 
multiplication integer/real integer/real 
/ division integer/real real 
div integer division integer integer 
mod remainder integer integer 


Any type of real gets converted to extended type. If one of the operands are of real type 
then the type of the result isalways extended; or else if one of the operands are of type 
longint then the result is also of longint type else the result is of integer type. 

The rules used by div and mod are: 


i mod j=i- (i div 3) *j 


Examples: 
+10 div +3 = +3 +10 mod +3 = +1 
-10 div +3 = -3 -10 mod +3 = -1 
+10 div -3 =<-3 +10 mod -3 = +1 
-10 div -3 = +3 -10 mod -3 = -1 


Boolean Operators 

Boolean operations 

The not operator negates a boolean value (monadic) . 
The and operator returns the logical and. 

The or operator returns the logical or. 

The xor operator returns the logical xor. 


Boolean evaluation: 


Op1 Op2 and or xor 
false false false false false 
false true false true true 
true false false true true 
true true true true false 
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Logical Operators 


Logical operations 

The operators not, and, or and xor can also be used as bitwise operators. Bitwise 
operators works on all bits in the operand(s). 

Besides the operators from boolean you will also find the operators shl and shr. 


The not operator makes bitwise negation (monadic). 
The and operator makes bitwise and. 

The or operator makes bitwise or. 

The xor operator makes bitwise xor. 

The shl operator shifts bitwise to the left. 

The xor operator shifts bitwise to the right. 


Examples: 
2 shl 3 = 16 
eLLtf xor SE = SEE 
not Sa5f0 = $5a0f 


Set Operators 


Three set operands exists: 
+ union 
- difference 
* intersection 


The operands must be of compatible types, and the result is of type “set of a..b”, where 
a and b are the smallest and largest ordinal value which is a member of the result. 


Set union (a+b) returns all members which are EITHER in a OR in b or in both. 
Set difference (a-b) returns all members IN a but NOT IN b. 
Set intersection (a*b) returns all members that are in BOTH aand b. 


Relational Operators 
All relational operators return boolean values. They are used when comparing values 
against each other. 


Comparing Ordinals 
Operands applicable: =, <>, <, Sy By Sm; 


Each ordinal operand must be of compatible type. 
The result is the mathematical relation of their ordinalities. 


Example: 


Red < Green 
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Comparing Reals 
Operands applicable: =, <, <, <=, >, >=. 


Each operand is first converted to extended type before tested. Take care when com- 
paring reals to be equal and not-equal. An example: 
var 
ASingle: Single; 
begin 
ASingle:=1/3; 
if ASingle=1/3 then NeverExecuted; 


The first 1/3 is only saved with single precision before converted while the next 1/3 is 
constant and calculated as an extended right away. 
) 
Comparing Strings 
Operands applicable: =, <>, <, <=, >, >=. 


All strings are compatible so all strings can be compared. 
A char variable can be treated as a string with an actual length of 1. 


Examples of comparison: 
‘Hello’ = ‘Hello’ 
‘Hello’ < ‘Hello World’ 
‘eltc’ 2 ™ 
‘Hello’ < ‘hello’ 
‘Hello’ <= ‘hello’ 
‘Hello’ <> ‘hello’ 


Strings are compared according to the Atari character set. This can be a problem when 
sorting strings containing national characters . 
Comparing Packed Strings 
Operands applicable: =, <>, <, <=, >, >=. 
Both operands must have the same number of elements. 
Packed strings are compared like strings (with the same length). 
Comparing Pointers 


Operands applicable: =, <>. 


The pointers compared must be of compatible types. Two pointers are only equal if 
they point to the same element. 
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Comparing Sets 
Operands applicable: =, <>, <=, >=, 


Both operands must be of compatible types. If a and b are sets, then: 

- a=b is true if all members in a are members of b and the other way around. 
- a<>b is true if no member in a are member of b and the other way around 

- a<=b is true if all members in a are also amember of b. 

- a>=b is true if all members in b are also amember of a. 


Testing Set Membership 
Operands applicable: in. 


The in operator test to see if the ordinal type operand on the left is amember of the set 
operand on the right. If so, it returns true else false. 


The ordinal type on left side must be compatible with the base type of the right operand. 


Example: 
2 in [1..4] = true 
2 in (7,9,13] = false 


The @ Operator 

The @ operator creates a pointer with a type compatible with all pointers. The pointer 
can be assigned to any pointer variable. The operator works on variables, procedures 
and functions. 


Do not use the @ operator if you don’t have to. It is not a standard feature of Pascal. 
It is known in Turbo Pascal. 
Because the type retumed is compatible with all pointers, you do not get any type 
checking error from the compiler. You can easily (by accident) assign the address of 
a Char to an integer-pointer. 


Function Calls 
FunctionCall = 
FunctionIdentifier [ ActualParameterZList ins 
ActualParameterList = 
“(“ ActualParameter { “,” ActualParameter ‘a haa 
ActualParameter = 
Expression | VariableReference. 


A function call activates the function specified by the function identifier in the same 
way as a procedure call does. The procedure call does not retum anything while a 


function call returns a value. 


If the function declaration has a list of formal parameters the function call must also 
have a corresponding list of actual parameters. 
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Examples 
Max (1.3 3) 
Random 


Set Constructors 
Set values are created by writing expressions within brackets. 
setConstructor = 
“[“ [ MemberGroup ] “]”. 


MemberGroup = 
Expression { “..” Expression }. 


All members in the member group must be of compatible types. The result is of type 
“set of a..b”, where a and bare the smallest and Jargest ordinal value that is a member 
of the result. 


Examples: 
[] 
(May, June] 
[=O oo fag ree paki | 


Value Typecast 
ValueTypeCast = 
TypelIdentifier “(“ Expression “)”. 


The value type cast can change the type of an expression from one type to another. The 
type returned is the one given, and the value is the one with the same ordinallity. The 
expression must be of ordinal type or of pointer type. 


Examples: 
Char (65) {The same as chr (65) } 
Boolean(1) {Same as True} 
Longint (@Buffer) 
Statements 
Statements are said to be executable. It is here your program will do its work. 


Statement = 

{ Label “:” } { SimpleStatement | StructuredStatement }. 
Label = 

DigitSequence | Identifier. 
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Simple Statements 
The statement is as shown divided into two types of statements. The simple statement 
is a self contained statement. 


SimpleStatement = 
EmptyStatement | 
AssignmentStatement | 
ProcedureStatement | 
GotoStatement. 


EmptyStatement = . (Nothing) 


Structured Statements 

The other main type of statements are structured statements. They contain other 
statements which have to be executed in: 

- sequence (compound statements), 

- conditionally (if and case statements), 

- repeatedly (repeat, while and for statements) or 

- within an expanded scope (with statements), 


StructuredStatement = 
CompoundStatement | 
IfStatement | 
CaseStatement | 
ForStatement | 
RepeatStatement | 
WhileStatement | 
WithStatement. 


Assignment 
AssignmentStatement = 
( Variable | FunctionIdentifier ) “:=” Expression. 


A function identifier can only appear on the leftside of a :=sign when assi gning areturn 
value to a function (within the function itself). 


The expression must be assignment compatible with the type of the result variable or 
function identifier. 


Examples: 
n:=3; 
MyFunc:=’ Hello’ ; 
LeCeerss | al ea a» "Baa? BF 8 


Note: The ; in the last line is NOT part of the statement but a separator before the next 
(empty) statement. 
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Procedure Statements 
ProcedureStatement = 
procedureIdentifier [ ActualParameterList ] | 
“Write” [ WriteParameterList ] | 
“Writeln” [ WriteParameterList ]. 


A procedure call activates the procedure specified by the procedure identifier in the 
same way as a function call does. The procedure call does not retum any value. 


If the procedure declaration has a list of formal parameters the procedure call must also 
have a corresponding list of actual parameters. 


Examples 

) SkipUntilEOF; 
Randomize; 
Writeln( ‘Goodbye’ ) ; 


Write and Writeln are special because they can take a variable number of parameters. 
This cannot be done by using normal procedure definitions. 


Goto Statements 

Labels can prefix statements which enables you to jump around in the program with 
goto. But try to avoid ”goto” and use the “repeat” , *while” and other high-level 
statements instead. 


GotoStatement = 
“goto” Label. 


Two rules must be remembered: 

- The goto and the corresponding label must be in the same block. 

- Do not jump into a structured statement. The for loop statement does some initial 
calculations which may not be skipped. 


ae Statements 
rite begin and end around a sequence of statements, and you have shown the order 


in which to execute them one by one. 


CompoundStatement = 
“begin” StatementList “end”. 


StatementList = 
Statement { “‘;” Statement }. 


Note that it is legal to write as many semicolons as you like. 
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If Statements 
The if statement is a two way switch. If the expression is true, the first way is taken, 
else the second. 


IfStatement = 
“if” expression “then” statement [ “else” statement ]. 


Note that it is NOT legal to put a semicolon before the else keyword. 
Semicolon is not a statement, but a separator, 


Examples: 
if OldEnough then LookTV else GotoBed; 
if Bad then else GoodEnough ; 
if not Bad then GoodEnough; 


Case Statements 

The case statement is a multi way switch. 

The expression is compared against the case constants one by one until a match is 
found. Then the corresponding statement is executed. Ifno match is made, then either 
the else clause is executed or nothing at all if no else clause exists. 


The expression and all the case constants must be of the same ordinal type. 
CaseStatement = . 
“case” expression “of” 
Case { “;” Case } 
ElseClause 
te # 


Case = 
ConstantElement { “,” ConstantElement } “:” Statement 


ConstantElement = 
Constant [ “..” Constant ls 


ElseClause = 
“else” StatementList. 


Examples: 
Case NextSymbol of 
‘+: Expression:=n+Factor; 
‘“-" ; Expression:=n-Factor; 
Else 
writeln(‘Parsing error’) ; 
halt (99) ; 
end; 
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case Month of 

1, 3,5, Ty 8,40, 12% Days?t=31; 

2: if Leap(Year) then Days:=29 else Days :=28; 
else Days:=30; 

end; 


For Statements 
When you know how many times a statement (compound statement etc) has to be 
executed, you will use the “for” repetitive statement. 


ForStatement = 
“for” ControlVariable “:="” InitialValue 
( “to” | “downto” ) FinalValue “do” statement. 


ControlVariable = 
VariableIdentifier. 


InitialValue = 
Expression. 


FinalValue = 
Expression. 


The control variable must be a variable identifier either global or local in the block 
containing the for loop. The variable must not be qualified, so do not use array index, 
record fields or pointer variables here. 


The control variable takes all values from the initial value to the final value including 
both. When using the “to” format the control variable is incremend by one each time 
the loop executes the statement. 

When using “downto”, the control variable is decremented. The statement will not be 
executed if the initial value is greater than the final value when using the “to” format 
opposite when using the “downto” format. 


lt is not legal to change the control variable inside the loop. This is not checked by the 
compiler. When the loop has finished the control variable will be undefined. If you jump 
out of the loop using a goto statement, the control variable is still valid (containing the 
last value used). 


Examples: 
For n:=1 to 30000 do ; {Nothing} 
For n:=1 to 9 do 
if Odd(n) then writeln(n,’ is an odd number’) 
else writeln(n,’ is an even number’); 
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Repeat Statements 

The repeat statement executes some statements until an expression returns true. As the 
sequence of text lines show, the expression is evaluated after the statements are ex- 
ecuted, thus the statements are always executed at least once. 


RepeatStatement = 
“repeat” StatementList “until” Expression. 


Examples: 
repeat write(‘*’) until Keypressed; 


While Statements 
The while loop works almost as the repeat loop except when the expression is 
evaluated. The while loop tests the expression before the statements are executed. 


WhileStatement = 
“while” Expression “do” Statement. 


Examples: 
while not eof(F) do begin 
readin (F,S); | 
writeln(‘Line read: ‘,S) 
end; 


With Statements 
With statements open up anew scope in which all symbols are first looked for. The with 
statement also establishes a reference to each of these record variables. While the 
Statement is executing the reference does not chan ge, even if you change the variables 
that made up the reference. 
WithStatement = 
“with” RecordVariableList “do” Statement. 


RecordVariableList = 
RecordVarReference { “,” RecordVarRe ference i 


Examples: 
With SomeOther,Rect do begin 
xs=7; ys=n; 
end; 


This is equivalent to 
With SomeOther do 
With Rect do begin 
X:=/7; yi=n; 


end; 
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This is equivalent to 
Rect .x:=7; Rect.y:=n; 
Another example: 
P:=HeaderField; 


while P<>Nil do 
with P* do begin 


a:=AField; {Note a is the same as} 

P:=NextField; 

b:=AField; {b, because of with P* do} 
end; 


Note that this is litterally equal to writing 


P:=HeaderField; 
while P<>Nil do begin 


a:=P*.AField; {Now a is NOT equal} 
P:=NextField; 
b:=P*. AField; {to b!!!} 

end; 


but the program will behave in quite another way. 


Procedures and Functions 
This section describes how to declare procedures and functions. 


Procedures gets activated by a procedure statement while functions are activated when 
used in an expression that contains its function name. 


Procedures and functions are defined as: 


\ ProcedureDeclaration = 
ProcedureHeading “;” FuncProcBody “;”. 


FunctionDeclaration = 
FunctionHeading “;” FuncProcBody “;”. 


FuncProcBody = 
Block | 
“Forward” | 
“External” | 
“Inline” Constant { “,” Constant }. 
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ProcedureHeading = 
“procedure” Identifier [ FormalParameterList ]. 


FunctionHeading = 
“function” Identifier [ FormalParameterList ] 
“:” ResultType. 


ResultType = 
TypeIdentifier | “string”. 


If the procedure body is declared as a block, all at the declaration is done right away. 
Alternatively, it may be declared as a forward declaration or as an external declaration. 
Another way is to code a procedure as an inline declaration. 


Examples: 
procedure HexDump(Val,Format: Integer); forward; 
Function Powerl0(N: Integer): Real; 
procedure HexDump; 
function Max(a,b: Integer): Integer; inline $xxxx, $xxxx; 


Forward 

A procedure that has the directive “forward” instead of the block is a forward decla- 
ration. Later, in the same declaration part, the procedure gets defined with its real block 
with a defining declaration. Ina defining declaration, the parameter list (and a function 
result type) is not repeated. In HighSpeed Pascal it is allowed to repeat the parameter 
list (and a function result type), but itis NOT checked and NOT used for anything, only 
as a comment. 


Procedures named in the interface part of a unit work like forward declarations, but the 
keyword forward is not used. 


Examples: 
function Func(N: Integer): Integer; forward; 


procedure Proc; 
begin 

if Func(7)=3 then {}; 
end; 


function Func; 
begin 

Func:=N*2 
end; 
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External 

A procedure that has the directive “external” instead of the block is a external dec- 
laration. The actual code block must be linked into the program by using a {$L 
MyCode.obj} directive somewhere in the source for this declaration. 


HighSpeed Pascal cannot check that the parameters passed are in the same order as the 
assembly code assumes, 


Examples: 
procedure BlockMove (var Src, Dst; Count: Integer); external; 


Inline 

A normal procedure call is done internally by making aJSR to the procedure. The inline 
directive permits you to replace this JSR with a sequence of instructions entered as 
constants after the inline directive. 


Note that each procedure “call” using inline inserts all constants listed, therefore keep 
them short. 


HighSpeed Pascal cannot check that the parameters passed are in the same order as the 
inline code assumes. 


A forward or interface procedure may not be declared inline later. 
Se “Inside HighSpeed Pascal” for further explanations. 


Parameters 

The declaration of a procedure (or function) can specify a formal parameter list. Each 
parameter in the list is local to the procedure in the same way as normal local variabels 
declared in a procedure. The only difference is that they are initialized when the 
procedure is activated, and that they might be referencing other variables which are 
changed whenever the formal parameter is changed (var parameters). 


| FormalParameterList = 
. “( ParameterDeclaration { “;” ParameterDeclaration “)”. 
ParameterDeclaration = 

IdentifierList “:” ParameterType | 

“var” IdentifierList “:’’ ParameterType | 

“var” IdentifierList. 


ParameterType = 
Typeldentifier | “string”. 


There are three kinds of parameters: value, variable and untyped variable. 
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Value Parameters 

Value parameters are not preceded with “var”. They act like normal local variables. 
They are just initialized when the procedure is initialized. The formal parameter can 
be changed without affecting the actual parameter used. 


The actual parameter must be an expression that does not contain any file type ele- 
ments. File types can only be passed as variable parameters. 

If the parameter type is string, the formal parameter has a type of String[255]. 

The actual parameter must be assignment compatible with the formal parameter. 


Variable Parameters 

A variable parameter is a parameter declaration preceded by “var” and followed by a 
type. 

A formal variable parameter is located right on top of it’s actual parameter, so each time 
the formal parameter gets changed, the actual parameter is also changed. 

If the parameter type is string, the formal parameter has a type of String[255], and the 
actual parameter must also have a length of 255. 

‘The type of the actual parameter and the type of the formal parameter must be identical. 


Untyped Variable Parameters 
A variable parameter is a parameter declaration preceded by “var” but without any type 
following it. 
The actual parameter passed can be of any type. The formal parameter are typeless. 
They can only be used as typeless pointers or by variable type castings like in this 
example: | 

function Equal(var Srel, Srce2; Length: Integer): Boolean; 


type 

Bytes= array [l1..MaxInt] of ShortInt; 
var 

n: Integer; 
begin 


Equal :=False; 
for n:=l to Lenght do 
if Bytes (Srcl) [n]<>Bytes(Src2) [n] then Exit; 
Equal :=True 
end; 


var 
TéstVar,TestVar2: array[1..99] of Longint; 
B:= Boolean; 
B:=Equal (TestVar, TestVar2,SizeOf (TestVar) ); 
B:=Equal (TestVar [10], TestVar2[20],SizeOf(LongInt) ) ; 
B:=Equal (TestVar [10], TestVar2 [20], SizeOf (LongInt) *10); 


Be careful when using untyped variables. It is almost as calling a procedure in the C 
language. 
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Procedure 
A procedure is activated in a procedure statement like: 


DumpSpaced (123) . 
Below is shown what a normal procedure might look like: 


procedure DumpSpaced (N: Longint) ; 
var 

S: String[9]; 
begin 

Str (N,S)? 

for N:=1 to Length(S) do 

write (S[N],’ *‘); 

writeln; 

end. 


It re-uses N, without destroying the actual parameter. It does not return anything. 


Function 
A function is activated when its name appears in a function call in an expression like: 
R:=100*Factorial (10) +1. 


A normal function may look like this: 


Function Factorial (N: Integer): Real; 
begin 
if N<=1 then 
Factorial:=1 
else 
Factorial :=Factorial (N-1) *N 
end; 


‘A function must return a value. If it does not, you get a garbage value. 

Return values are assigned to the function when the function name appears on the left 
side of an assignment (:=). If the function name appears any other place, it is treated 
as another (recursive) call to the function itself. 

You cannot read the value back from the function name once itis assigned, you will 
have to keep a copy yourself. 

You may assign a retum value as many times as you like. 
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Programs, Units , Procedures and functions. 


Blocks 

All code fragments used to form a Pascal program has aname. Every one of these pieces 
are collected into blocks. These can be procedures, functions, a program or a unit. In 
each block, new identifiers can be declared, which are local to the block. The only 
exceptions are units, declaring identifiers for use by others. 


Block = DeclarationPart StatementPart. 

DeclarationPart { LabelDeclarationPart | 
ConstantDeclarationPart | 
TypeDeclarationPart | 
VariableDeclarationPart | 
ProcedureDeclarationPart | 
FunctionDeclarationPart }. 


LabelDeclarationPart = “label” Label [ “,” Label ] “:” 
Label = Identifier | DigitSequence 
ConstantDeclarationPart = “const” ConstantDeclaration 


{ ConstantDeclaration }. 


TypeDeclarationPart = “type” TypeDeclaration 
{ TypeDeclaration }. 


VariableDeclarationPart = “var” VariableDeclaration 
{ VariabelDeclaration }. 


ProcedureDeclarationPart = ProcedureDeclaration. 
FunctionDeclarationPart = FunctionDeclaration. 
Program Syntax 
A program is similar to a procedure, except for the first and last line. The heading is 
different and the last line reads “end.” instead of “‘end;”. 
Program = [| ProgramHeading ] [ UsesClause ] Block ™.”. 
ProgramHeading = “program” Identifier [ ProgramParameterList ]. 
ProgramParameterList = “(“ IdentifierList “)”. 


UsesClause = [ “uses” IdentifierList ]. 


The identifier after “program” names the program. 
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Unit Syntax 
Units are used when making modular programs. Each unit gets aname which must be 
the same as the name of the source file (extended with PAS). 


Ww, ff 
t 


“unit” Identifier 
InterfacePart 
ImplementationPart 
InitializationPart “.” 
Inter facePart = “interface” UsesClause 
{ ConstantDeclarationPart | 
TypeDeclarationPart | 
VariableDeclarationPart | 
ProcedureHeadingPart | 
| FunctionHeadingPart }. 
ProcedureHeadingPart ProcedureHeading “;” [InlineDirective “;” ]. 
FunctionHeadingPart = FunctionHeading “;” [InlineDirective “;” ]. 


Unit 


ImplementationPart = “implementation” 
{ LabelDeclarationPart | 
ConstantDeclarationPart | 
TypeDeclarationPart | 
VariableDeclarationPart | 
ProcedureDeclarationPart | 
FunctionDeclarationPart }. 
InitializationPart = “end” | StatementPart. 


There is no label declaration in the interface part. 

The implementation part must implement all the procedures and functions defined in 
the interface part. 

Anything not defined in the interface part is private to the unit. 


The code entered in the initialization part will be executed right before the first begin 
in the program module. This initialization part will be in the same order as used. 


Scope and Activations 

The scope rules determine where an identifier can be used. 

_ An identifier cannot be used, before it has been defined. “Before” means reading the 
source text from top to bottom. 

_ An identifier cannot be used after the block in which it is defined ends. 

. An identifier cannot be redefined in the same block. 

_ An identifier can be redefined in an enclosed block. 

- An identifier can be reused in a record structure. 

This does not hide the first identifier from been used. 
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Scope for Units 

Each unit used in a program or unit opens up a new scope. An identifier can be re- 
defined in each of these units, and only the last seen will be used, except if it is ref- 
erenced with a qualified name as Unit3.N:=3;. 


Scope for Standard Identifiers 

All identifiers defined by HighSpeed Pascal are defined in the System units. These 
units are always the first ones used. As the normal scope rule for a unit says, all 
identifiers can therefore be redefined. 


Activations 

When a procedure is called, it is activated. Much can be said about what an activation 
contains, but the most interesting is where the local variables are. 

Each local variable gets new space each time a procedure is called. 

Each time a procedure calls itself (recursive or mutually recursive) it gets new space 
for the local variables. Each of the activations naturally knows where each of it’s 
variables for its own activation are. 


Input and Output 

All input and output routines in HighSpeed Pascal are described here. They are all 
predeclared. Some of them takes a variable number of parameters, thus they cannot be 
created using normal Pascal style programming. 


Three types of files existin a HighSpeed Pascal program; text, typed and untyped files. 
They are declared as: 


aTextFile: Text; 
aTypedFile: File of SomeThing; 
anUntypedFile: File; 


All files used must have a name assigned. The name is the same as the name of the file 
on the disk. Some text files are treated differently by not using the disk, and has the 
information stream going somewhere else like to the screen or to a printer. 


All files must be opened before use, giving them a name at the same time. After use 
they must be closed again. Text files can be opened for re-use (only input or appending 
output) or they can be created each time used (only output) thereby first deleting the 
one with the same name. 

Other files are always both input and output. 


Text files are always accessed sequentially, youcannot seek around in text files. In other 
files you can position your current read/write position by using the seek procedure. 


After all calls to the input/output system an I/O-check routine is called to see if any- 
thing went wrong in the last routine. This can be disabled using the directive {$I-} or 
by disabling the $I flag in the OPTIONS/Compiler dialogue box. 
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Routines for Input and Output 
These are the routines that can be used for file I/O: 


Reset, Rewrite, Append, Close, 

Seek, FilePos, FileSize, 

Eof, Eoln, SeekEof, SeekEoln, 

Read, Readln, Write, WriteLn, Page, BlockRead, BlockWrite, 
Rename, Erase, 

TOResult. 


General control routines 
These are the routines used for creating, erasing, renaming and opening files: 
Reset, Rewrite, Append, Close, Rename, Erase, TOResult. 


Reset (F, Title) 
Open the file named Title. The file is read only if itis a text file. 


Reset (F, Title, BufSize) 
A text file may optionally specify the size of a buffer in which the input is buffered if 
not used right away. 


Reset (F) 
Rewind the file to the start of the file. May only be used on an already opened file. 


Rewrite(F, Title) 
Creates and opens the file named Title. The file is write only if it is a text file. 


Rewrite(F, Title, BufSize) 
A text file may optionally specify the size of a buffer in which the output is buffered 
until full. 


Rewrite(F) 

Rewind the file to the start of the file. May only be used on an already opened file. 
‘The contents should have been deleted, but the Atari cannot truncate a file. To do this 
‘you will have to erase the file yourself. HighSpeed Pascal does not know the filename, 
and cannot do this for you. 


Append(F, Title) 
Only for textfiles. Opens a file like rewrite, but starts writing from the last position used 
in the file. 


Append(F, Title, BufSize) 
Specify a buffersize like rewrite. 


Append(F) 
Start appending on an already opened file. 
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Close(F) 
Flush unwritten data and close the file. 


Rename(OldName, NewName) 
Rename a file from oldName to newName. Both parameters are string types. 


Erase(Title) 
Delete the file from the disk. 


{OResult: Integer 
Return the result of last input or output operation. Zero is returned when no errors has 
occurred. IOResult is cleared by this call. 


Typed and Untyped Files 

Untyped files are treated as a typed file with a type of: file of ShortInt. 

These are the routines to use on typed and untyped files: 

Seek, FilePos, FileSize, Eof, Read, Write, BlockRead, BlockWrite. 


Seek(F, N: Longint) 
Position the current read and write position. The first position is number zero. 


FilePos(F): Longint 
Return the current file position. FilePos returns zero after reset and rewrite. 


FileSize(F): Longint 
Return the number of elements in the file F. 


Eof(F): Boolean 
Return false if there is still data to read after the current file position. 


Read(F, v {,vn } ) 
Read a file component into a variable. The variable(s) v must be of same type as the 
component type of F, The current file position is advanced one for each variable. 


Write(F, v {,vn } ) 

Write a file component from a variable. The variable(s) v must be of same type as the 
component type of F. The current file position is advanced one position for each 
variable. 


BlockRead (F, Buffer, Count) 
Read Count bytes from file F into Buffer. An IOError is generated if Count bytes could 
not be read. 


BlockRead (F, Buffer, Count, ActualCount) 


Read Count bytes from file F into Buffer. The actual count read is returned in 
ActualCount. No errors are generated. 
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BlockWrite (F, Buffer, Count) 
Write Count bytes to file F from Buffer. An [OError is generated if Count bytes could 
not be Write. 


BlockWrite (F, Buffer, Counf, ActualCount) 

Write Count bytes to file F from Buffer. The actual count written is returned in 
ActualCount. No errors are generated. 

BlockRead and BlockWrite can be used on bothtyped and untyped files. Untyped files 
are treated as a typed file with a type of: file of ShortInt. The ShortInt size tells reset, 
rewrite and seek that the element size is one byte. BlockRead and Block Write takes it’s 
size as byte count. To read a Longlnt from a file of LongInt you will have to use 
BlockRead(F,B, 1*SizeOf(LongInt)). 


Text Files 

These are the routines for text file I/O. 

Write, WriteLn, Page, Readln, Read Eof, Eoln, SeekEof SeekEoln. 
For all text file routines, you do not have to specify a file variable. It is then assumed 
to be either the standard file Input or Output. Write and WriteLn takes Output as there 
default file, while all the other takes Input as there default. 


Read (F, v {, Vn} ) 
The variable V can be any one of these types: Integer, Real, Char, String. 
When reading Integer or Reals, HighSpeed Pascal expects to read a sequence of digits 
and special symbols like ., +, -, €, OF E. Any white spaces (tab, space and end-of-line) 
are skipped first. 
When reading to a Char variable, one byte is read from the file. In standard Pascal the 
end-of-line symbol is read as a space, chr(32), but in HighSpeed Pascal, you will read 
it as a carriage return, chr(13). 
Reading a string will read until end of line is met. As many characters as the length of 
the string allows will then be put into the string. Reading a string will never read past 
a newline. If that is wanted, then use ReadLn. 
Readin (F, v { , Vn } ) 
Write (F, p {, Pn } ) 
WriteLn (F, p { , Pn } ) 
The variable P can be any one of these types: Integer, Real, Char, String, PackedString, 
Boolean. 
WriteLn (F,pl,p2,p3) ; 
is the same as: 
Write (F,pl,p2,p3) ; 
WriteLn (F) ; 
is the same as: 
Write (F,pl) ; 
Write (F,p2) 7 
Write (F,p3); 
WriteLn (F) ; 
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The write parameters p, Pl, P2.. Pn has the form: 
Expression [ [ “:” MinWidth ] “:” DecPlaces ]. 


where Expression is the wanted output, and MinWidth and DecPlaces are integer 
expressions. 


MinWidth positions are used when writing the expression. If the expression needs 
more space, more space is used. Default for MinWidth is 0. 

DecPlaces specifies how many decimal digits a real number should have when con- 
verted to text. As shown, it can only be specified if Min Width is also specified. 


Integer, Char, String and PackedString type variables are written left justified in a field 
with width Min Width. If MinWidth is too small, no spaces are placed in front. 
Boolean type variables are written by either writing the string FALSE or TRUE. 
Real type variables are a bit more complicated. They are first converted to text format 
using the MinWidth and DecPlaces value. 

If MinWidth is omitted, it is assumed to be 10. 


If DecPlaces is omitted, the number is converted to a floating point decimal string, or 
else it is converted to a fixed point decimal string. 


Floating point decimal string: | 
( wu WW | WoO ) digit ma ‘ft decimals “eer ( Wo | WU ) exponent - 


Fixed point decimal string: 
[ blanks ] “-” digits “.” decimals. 


Eof (F): Boolean 
Return false if there is data still to read after the current file position. 


Eoln (F): Boolean 
Return false if there is data still to read after the current file position, but before the next 
newline. 


SeekEof (F): Boolean 
As Eof, but first it skips all white spaces. 


SeekEoln (F): Boolean 
As Eoln, but first it skips all white spaces except newline. 


Page (F) 
Write a form feed to the file. Same as Write(chr(12)). 
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Error handling 

After all calls to the input/output system an I/O-check routine is called to see if any- 
thing went wrong in the last routine. This can be disabled using the directive {$I-} or 
by disabling the $I flag in the dialog box. If 1O-checking is disabled, the result of each 
operation can be checked by using the {OResult function. If it returns zero, no error did 
occur, Note that IOResult is a function that only returns its value once, the next time 
it returns zero. Be sure to “empty” the IOResult after eac 


Text File Devices 

Whenever a text file is about to be opened, a chain of known “files” is searched. If you 
try to open one of these files, you will get access to an internal handler, that decides 
what to do about all your input and output calls. The Input and Output files goes this 
way as default. You can naturally overwrite this, just by doing a new reset and rewrite 
on them. 
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4.40 Language elements 


Units 


The DOS unit. 


The DOS unit implements a variety of operating system and disk related routines. 
Constants, Types and Variables. 


The File Attribute Constants 


Const 
ReadOnly = $01; 
Hidden = $02; 
Sysfile = $04; 
VolumeID = $08; 
Directory = $10; 
Archive = $20; 
AnyFile = $3F; 


The file attribute constants are used in routines that involve Getting, Setting and 
Testing file attributes. They are also used when searching indirectories for specific file 
groups using the FindFirst and FindNextprocedures. 


The SearchRec Type 


Type 
SearchRec = RECORD 


Reserved : Packed Array[0..20] OF Byte; 


Attr : Byte; 

Time : Longint; 

Size : Longint; 

Name s String[12); 
END; 


The SearchRec type is used when searching for files with the FindFirst and FindNext 
procedures. 
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The DateTime Type 


Type 
DateTime = RECORD 
Year ; Integer; 
Month : Integer; 
Day ; Integer; 
Hour ; Integer; 
Min : Integer; 
Sec ; integer; 
END ; 


The DateTime type is used in connection with several of the routines in the DOS unit. 
It finds primary use in the routines that Gets and Sets the time and date in the operating 
system, but it is also used in connection with file related operations such as FindFirst 
and FindNext. 


File-Handling String Types 


Type 
ComStr = String[127]; 
PathStr = String[79]; 
DirStr = String[67]; 
NameStr = String[8]; 
ExtStr = String[4]; 


The file-handling string types are used in the routines that deals with paths and file 
names. Examples of such routines are ChDir, RmDir, MkDir and FExpand. 


The DosError Variable 
Var 
DosError : Integer; 
The values storedin the DosError variable are DOS errors. The following isthe DosError 
codes as they are declared in the DOS unit: 


Const 

EINVEN = -32; { Invalid Function Number } 
EFIINF = -33; { File Not Found } 
EPTHNF = -34; { Path Not Found } 
ENHNDL = —-35; { File Handle Pool Exhausted } 
EACCDN = —36; { Access Denied } 
EIHNDL = -37; { Invalid Handle } 
ENSMEM = -39; { Insufficient Memory } 
EIMBA = -40; { Invalid Memory Block Addr } 
EDRIVE = —46; { Invalid Drive Specification } 
ENSAME = —48; 

ENMFIL = -49; { No More Files } 
ERANGE = -64; { Range Error } 
EINTRN = -65; { GEMDOS Internal Error } 
EPLFMT = —-66; { Invalid Executable File format } 
EGSBF = -67; { Memory Block Growth Failure } 


A value of zero indicates that no error occoured. 
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Environment functions 


EnvCount Returns the number of strings in the environment block. 
EnyStr Returns the environment string number N. 
GetEnv Retums the value of a specific environment string. 


Parameter functions 
ParamCount Returns the number of parameters passed on the command line. 


ParamStr Returns command line parameter number N. 


Date and Time procedures 


GetDate Gets the current date in the operating system. 

SetDate Sets the current date in the operating system. 

GetTime Gets the current time in the operating system. 

SetTime Sets the current time in the operating system. 

SetFtime Sets the time and date a file was last updated. 

GetFtime Gets the time and date a file was last updated. 

Packtime Packs a DateTime variable into a 32-bit long integer variable. 


UnpackTime Unpacks a 32-bit long integer to a DateTime variable. 


Disk status procedures and functions 


DiskSize Returns the size of a disk in a specified disk drive. 

DiskFree Returns the number of free bytes on a diskin a specified disk drive. 
SetDrive Sets the current disk drive. 

GetDrive Returns the number of the current disk drive. 


GetVerify Returns the value of the disk verify flag. 


SetVerify Sets the value of the disk verify flag. 
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Directory-handling procedures 


GetDir 
ChDir 
MkDir 
RmDir 
FSphit 


FExpand 


Gets the current directory on a specified drive. 
Changes the current directory. 

Makes a new directory. 

Removes a directory. 


Splits a path up into the Directory name,File name and File extension. 


Takes apath and returns a fully qualified path consisting of Drive,Directory 


name and File name. 


File-handling procedures and functions 


FindFirst 


FindNext 


SetFAttr 


GetFattr 


Searches a directory in order to find the first file name matching a 
specified group of files. 


Searches for the next file name matching the specifications given in 
the call to FindFirst. 


Sets the attributes of a specified file. 


Gets the attributes of a specified file. 


Miscellaneous functions 
TosVersion Returns the version of the operating system. 


Super 
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Switches the CPU between Supervisor and User mode. 


The BIOS unit. 


The BIOS unit implements routines both from the standard BIOS and the extended 
BIOS. 

Since this manual is not meant to be a guide to the Atari BIOS, we strongly recommend 
that you read a specific BIOS manual, if you are uncertain about what a specific BIOS 
routine does. 


Disk related procedures and functions 
FlopRd Reads one or more sectors from a floppy drive. 


FlopWr Writes one or more sectors to a floppy drive. 

Flop Ver Verifies one or more sectors on a floppy drive. 
FlopFmt Formats a track on a floppy drive. 

Rwabs Reads one or more logical sectors from a disk drive. 


ProTobt Creates a prototype of a boot sector. 


DrvMap Returns information about the number of drives attached to the 
system. 


MediaCh Checks to see if a media (disk) has been changed. 
GetBpb Returns the BIOS parameter block for a specified drive. 


Screen related procedures and functions 
PhysBase Returns the address of the physical screen memory. 


Log Base Returns the address of the logical screen memory. 
GetRez Returns information about the current screen resolution. 


SetScreen Sets the Screen resolution and the physical and logical screen 
memory address. 


ScrDmp Dumps the screen to the printer. 
Vsyne Waits for the next vertical-blank interrupt. 
PrtBlk 


SetPalette Sets the contents of the hardware palette register. 


SetColor — Sets a palette entry to a given color. 
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Parallel and Serial port procedures and functions 


RsConf Configures the serial port. 
SetPrt Gets or sets the printer configuration byte. 
IoRec Returms a pointer to a serial devices input buffer record. 


Keyboard and Cursor procedures and functions 
CursConf Sets the state of the cursor. 


KbShift Retums the status of the Control, Caps and Shift keys. 
KeyTbl Sets pointers to the keyboard translation tables. 
BiosKeys _ Restores the default BIOS translation tables. 

[KbdWs Writes a sequence of characters to the keyboard. 
KbdvBase 

KbRate Sets the keyboard repeat rate. 


Sound procedures and functions 
Giaccess Reads or writes a register on the sound chip. 


OffGiBit Sets a bit inthe PORT A register to zero. 
OnGiBit Sets a bit in the PORT A register to one. 
MidiWs Writes a sequence of characters to the midi port. 
DoSound Executes a block of sound chip commands. 


Interrupt procedures and functions 
jDisInt Disables an interrupt. 


jEnabInt Enables an interrupt. 
MfpInt Sets an interrupt vector. 


XbTimer Initializes and starts the MFP 68901-Timer 
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IO procedures and functions 
BConStat Returns the status of a character device. 


BConIn Reads a character from a device. 

BConOut Writes a character to a device. 

BCoStat Returns the character output status for a device. 
Miscellaneous procedures and functions 

X_ Random Returns a random number. 

XSetTime Sets the time and date in the keyboard. 

XGetTime Gets the time and date in the keyboard. 

TickCal Returns a system-timer calibration value. 
SupExec — Executes a fragment of code in Supervisor mode. 


PuntAES Throws the AES away. 


SsBrk Reserves an amount of memory. 
GetMpb 
SetExc Sets an interrupt vector. 


InitMous _ Initializes the mouse packet handler. 
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The System unit. 
Types and Variables 
The Byte Type 


Type 
Byte 


oho 


The byte type is a subrange specifying the legal range of variables of type byte. 


The Word Type 


Type 
Word 


= 01)..65535; 


The word type is a subrange specifying the legal range of variables of type word. 


The RBasePage Type 


Type 
PtrLen 


PBasePage 
RBasePage 


RECORD 


Base 
Size 


END; 


“RBasePage; 
RECORD 


P_ lowtpa 
P hitpa 
Text 
Data 

BSS 

P dta 

P parent 
P_resrvd0 
P env 

P stdth 
P_ resrvdl 
P_curdrv 
P_resrvd2 
P_cmdlin 


END; 


: Pointer; 
: Longint; 


: Pointer; 

: Pointer; 

s PerLen; 

: PtrLen; 

: PtrLen; 

: Pointer; 

: PBasePage; 

: Longint; 

: Pointer; 

: Array(lis6] Of. Short Int: 
: Shortines 

§ Shortine; 

: Array (1..48} of Longint; 
: String [127)5 


The RBasePage type is used as a type for the BasePage variable. 
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The BasePage Variable 
Var 
BasePage : PBasePage; 


The BasePage is used as a control block for your compiled programs. One of its 
functions is to provide the command line that started the program. 

The command line can be accesssed through the P_cmdlin variable in the BasePage 
record. 


The Input and OutPut Variables 
Var 
Input, 
Output ; Text; 


The Input and OutPut variables are used as the standard input and output devices. 


The Stack Variables 
Var 
HighStak : Pointer; 
LowStack : Pointer; 


The HighStack variable points to the top of the stack. The LowStack variable points 
to the bottom of the stack. 


The HeapOrg Variable 
Var 
HeapOrg ; Pointer; 


The HeapOrg points to the bottom of the heap. 
The RandSeed Variable 
Var 
RandSeed_ : LongInt; 
The RandSeed variable acts as a seed for the random-number generator. 
The ExitProc Variable 
Var 


ExitProc : Pointer; 


The ExitProc variable points to a chain of routines which is executed when a program 
terminates. 


Units 5.9 


The ErrorAdr Variable 
Var 
ErrorAdr : Pointer; 


The ErrorAdr contains the offset from the BasePage of the instruction that caused a 
program to terminate with a runtime error. 


The ExitCode Variable 
Var 
ExitCode : Integer; 


The ExitCode contains the number of the runtime error that caused a program to 
terminate. 


The Trap Variables 
Var 
STrap5 _ : Pointer; 
STrap102_ : Pointer; 


The two STrapXX pointers holds the addresses of the interrupt vectors XX as they were 
when the program was loaded. 


The IOResVar Variable 
Var 
LOResVar : Integer; 


The IOResVar is used by the [Oresult function. 


Screen procedures 


ClrScr Clears the screen. 

ClrEos Clears the screen, starting at the current cursor location. 
ClrEol Clears the line, starting at the current cursor location. 
InsLine Inserts a new line at the current cursor position. 


DelLine Deletes the current line. 
GotoXY Positions the cursor at specifiedcoordinates. 
Miscellaneous functions 


RunFromMemory 
Retums true if a program is runnig from within the editor. 


5.10 Units 


The AppFlag Variable 
Var 
AppF lag : Boolean; 


The AppFlag will returm true if a program isa standard application (x.PRG), otherwise 
it will return false. 


The DevChain Variable 
Var 
DevChain : Pointer; 
The DevChain variable points to a list of known devices. 


The LastPC Variable 


Var 
LastPC _ : LongInt; 


The LastPC variable holds the address of the last known location in 
memory. Set by range and stack checking routines. 
The ShftShft Variable 


Var 
ShftShft : Pointer; 


The ShftShft (ShiftShift) pointer points to the current state of the shift 
keys. Is used when checking for the Shift-Shift user break combination. 
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The system 2 unit 


Types 
The FileRec Type 
Type 
Char32K = Packed Array[0..32000] of Char; 
Char32KPtr = *Char32K; 
FileRec = RECORD 


finpFlag : Boolean; 
fOutFlag : Boolean; 
fHandle ; Integer; 
fBufSize : Integer; 
fBufPos : Integer; 
fBufEnd ; Integer; 
fBuffer : Char32KPtr; 
fInOutProc : Pointer; 
END : 


The FileRec type is used as a file control block for all types of files (Untyped, Typed 


and Text). 


Keyboard functions 
KeyPressed The KeyPressed function retums true if a key has been pressed, but not 


ReadKey 


yet read. 


Reads and returns a character from the keyboard. 


Screen procedures 


ClirScr 


ClrEos 


ClrEol 


InsLine 


DelLine 


Gotox Y 


Clears the screen. 

Clears the screen, starting at the current cursor location. 
Clears the line, starting at the current cursor location. 
Inserts a new line at the current cursor position. 
Deletes the current line. 


Positions the cursor at specified coordinates. 
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The Printer unit. 


The printer unit implements an easy way of writing data to the printer connected to the 


PRN: port. 


Outputting data to the printer is done by writing to the text file by the name of Lst. 


An example: 
Program Print; 
Uses Printer; 
Begin 
Writeln(Lst,’Hello printer.’ ); 
End. 
Variables 
The Lst Variable 


Var 
Lst s TEx 2 


The Lst file variable is used when writing data to the printer. 
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5.14 Units 


GEM 


Purpose of this section 

This section is ment to give the reader a short introduction to GEM and the terms 
connected. It is, however, not the purpose to teach the reader how to make a GEM 
program, as it lies outside the frame of this manual. 





The GEM section is separeted into five sections: 
GEM: An overview 

THE GEM DEMO 

GEMDecl (Reference) 

GEMVdi (Reference) 

GEMAes (Reference) 


GEM : An overview 


GEM is an abbreviation for “Graphics Environment Manager” i.e. it is supposed to 
create and maintain a graphic environment consisting of the following basic items : 


- the mouse, 

- the keyboard, 

- the screen, and to a limited extent, 
- file handling (resource files only) 


As it is assumed that you’re already familiar with the basic operations of GEM (e.g. 
the desktop), we shall be concentrating on how to use the multitude of procedures, 
functions and data structures that GEM presents to the programmer viathe HighSpeed 
Pascal libraries GemDecl, GemAES and GemVDI. 
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The internal operating system construction of importance to us on the STis as follows 


GEM AES highest level 
GEM VDI 

( GEMDOS/TOS ) 

( XBIOS/SIOS } 


But before delving into the depths of the AES and VDI, let's get to terms with some 
abbreviations : 


AES = Applications Environment Services 
VDI = Virtual Device Interface 

OS = Operating System 

DOS = Disk OS; TOS = Tramiel (?) OS... 
GDOS = Graphic Device OS 

BIOS = Basic Input Output System 


XBIOS = eXtended BIOS 


The basic idea behind this OS construction is as follows : Let the BIOSes handle all 
machine-dependent operations concerning screen input/output, keyboard I/O, mouse 
I/O, disk I/O etc. and let the GEMDOS/TOS handle disk operations on amore general 
level, that is, using the GEMDOS instead of the BIOS, makes it much more simple to 
port a program from, say, an IBM PC to the ST. And that leads us to the simple 
consequence : The construction of a general graphics-based operating system : The 
GEM. 


The purpose of the VDI 

The VDI contains a number of lower-level procedures and functions which can be 
found in the GemVDI library. They present “simple” graphics operations such as 
drawing a line, setting a point, defining colors etc. together with more complex 
operations like opening “workstations” and handling mouse movements. 


The purpose of the AES 

The AES presents more complex operations based on simple VDI operations. Among 
these are : Event handling, menu control, dialog boxes etc. It enables the programmer 
to disregard almost all hardware considerations and is so the ideal environment for 
creating easily portable programs. 


Basic terms 

Before a GEM program can use the ST’s hardware, it must create a workstation.” A 
workstation is the logical implementation of the physical environment on the ST - that 
is, the programmer can - in principle - make GEM ignore e.g. that on a monochrome 
monitor, the raster has asize of 640 * 400, and instead treat it asifit were 32678 * 32768 
pixels wide. The “workstation” concept also implies that the computer does not nec- 
essarily have to use the screen for output - itcould just as well write the output to a disk, 
plotter etc. 
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THE GEM DEMO 


In this section we shall present possible solutions to common problems conceming 
GEM programming. We do not claim out methods to be the best available, and they 
should only be used for inspiration - after all, one only gets the feel of things when he’s 
forced to think it over. So the moral is : Take a look atit, use it if you're learning GEM 
or otherwise are having problems - but don’t imitate uncritically! 


As discussing hypothetical problems tends to get rather confusing, we have chosen to 
discuss a “real-life” problem : The creation of aGEM demo program... Ah, well, not 
so “real-life” perhaps, but it allows us to demonstrate a wide number of problems and 
their possible solutions. Therefore we shall imitate the steps of conceptual design, and 
discuss the HighSpeed Pascal implementation. 


NOTE: Before reading on, it’s recommended you “play” a bit with the demo program 
(GEMDEMO.PRG) which is supplied with the HighSpeed Pascal system - just to get 
an overview of what the program does. 


Purpose 
The purpose of the GEM demo program is to demonstrate the following subjects : 


- application initialization 

- resource handling 

- menu handling 

- simple dialog box handling 

- simple window handling (no scrolling) 
- simple graphics and text output 

- simple event handling 


What the demo program shall do : 


- handle two windows : A text window and a graphics window. 
_ draw text in the text window and one of four graphic demos in the graphics window 


As constructing a resource data structure via the demo program is arather extensive 
task, we selected to create it with a Resource Construction Set package which 
generated the two files GEMDE-MO.RSC and GEMDEMO.H. The contents of these 
files will be examined later. GEMDEMO.H contains a list of constants, describing the 
object trees and elements, and is included into the DemolInterface (see below) unit’s 
INTERFACE section, thereby making them available to all client units. 
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Unit division 
The above list of subjects to be covered inspired the following unit division : 


DemoGraphs —~ takes care of drawing the desired graphics 
DemoMenu - menu handler/dispatcher 
DemoWindows —- text/graphics window handler 


DemoInterface - resource load, setup, GEM init., exit, object 
manipulation, global variables, constants etc. 
GEMDemo - main program 


Resource contents 

In the below, we shall examine the contents of the resource file, i.e. the object's internal 
structure and interaction. To aid the understanding, the same names are used for 
describing the objects as the ones in the GEMDEMO.H file. 


The file GEMDEMO.RSC contains three object trees : 


MAINMENU - the main menu 
ABOUTBOX - the information box opened by the About... menu item 
SLCTDEMO - dialog box for selecting one of four graphic demos 


The MAINMENU tree contains three title entries with the subordinates shown below 


Title entry : DESKMENU WINMENU QUITMENU 


Subordinates : ABOUTBAR WINCLOSE QUITBAR 
TXTOPEN 
TXTCLOSE 
GRAOPEN 
GRACLOSE 
GRASELEC 


All elements of the WINMENU except GRASELEC have their enable/disable state 
changed by the program in order to prevent the user from making illegal operations. 
The pattern is this : 


Chosen Enabled Disabled 
WINCLOSE TXTOPEN (*) WINCLOSE (7%) 
TRICLOSE {*) TXTCLOSE (*) 

GRACLOSE 
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TXTOPEN WINCLOSE TXTOPEN 


TXTCLOSE 
TXTCLOSE TXTOPEN TXTCLOSE 
WINCLOSE (*) 
GRAOPEN WINCLOSE GRAOPEN 
GRACLOSE 
GRACLOSE GRAOPEN GRACLOSE 


WINCLOSE (*) 


The (*) mark indicates, that WINCLOSE is only enabled if either or both of 
TXTCLOSE and GRACLOSE are enabled, and that it is the currently active of the text 
and graphics window which is closed. 


The ABOUTBOX contains 1 element only, ABOUTOK, which designates the[ Ok ] 
key with the following flag layout : Selectable, Default, Exit. 


Finally, the SLCTDEMO dialog box contains four icons, each representing a specific 
demo type. They are laid out as radio buttons, each one’s flag state is: RadioButton, 
Selectable, Exit. The icons are : 


BOXES —~ draws a number of filled boxes 
LINES — draws a line pattern 

ELLIPSES -— draws a number of filled ellipses 
PIES —~ draws a number of filled pie slices 


Initializing the application 

In order to make GEM familiar with our demo program, we have to pass some 
information to the AES and VDI. In return, we getan AES handle, which we won’t use 
foranything, and a VDI handle, which we will be using when drawing the demos etc. 
The steps involved in initializing GEM are: 


|. Initialize the application and get the AES handle in return 

2. Get the VDI’s graphics handle 

3. Choose how we want the graphics to behave 

4, Open a virtual workstation and pass the VDI handle to it 

5. From the workstation return parameters, determine actual workstation appearance. 
6. If running on a color monitor then abort! 


Incase GEM returns a negative AES handle, we have no other option than to abort the 
program with a “Fatal error” message. 


The above steps are implemented in Demolnterface.Init_GEM : 
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Function Init Gem; 

VAR 
workin : IntIn Array; { workstation input parameters } 
workout : workout Array; { workstation output parameters } 


dummy : Integer; 
BEGIN 
AES handle := appl init; { get AES handle } 


IF AES handle >= 0 THEN BEGIN { if legal then goon: } 


{ get VDI handle and height of a character box : } 
VDI_ handle := graf handle(dummy, dummy, 
CharBoxHeight, dummy) ; 


{ initialize workstation input parameters : } 
FOR dummy := 0 TO 9 DO workin[dummy] := 1; 
workin[10] := 2; { use Raster Coordinates } 


v_opnvwk (workin, VDI_ handle, workout); { open workstation } 
IF workout [39] > 2 THEN { Oh no! A color monitor! } 
FatalError(‘GEMDEMO only runs on a | monochrome monitor’ ); 


{ get size of free desktop area : } 
wind get (0, WF FULLXYWH, Minx, MinY, MaxW, MaxH); 
graf _growbox(0, 0, 0, 0, MinX, MinY, MaxW, MaxH) { nice! } 
END ; 
Init_Gem := AES handle >= 0 { return TRUE if init ok } 
END; 


Notes : The v_opnvwk procedure passes the size of the screen in pixels, but as this 
doesn’t take the menu bar into account, wind_get is used instead with a window handle 
(first parameter) of zero, which designates the desktop. A WF_FULLX YWH will then 
return the size of the available desktop space. The graf_handle returns four parameters 
describing graphic text character and box widths andheights, but only one of these, the 
height of a character box, is stored here, as it’s used in the text window redraw 


Handling the resources 

After successful initialization of the GEM environment, we turn to the resource file. 
The steps involved are : 

1. Load the resource file 

2. If it couldn’t be found then tell the user so and abort 

3. Determine the addresses of the object trees 

4. Set object states to their defaults (just to be sure, in case something was forgotten 
when designing the resource file) 

5. Turn the main menu on 
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These steps are implemented in DemolInterface.Init_Resource : 
Procedure Init Resource; 
VAR ResourceName : String; 


BEGIN 
ResourceName := ‘GEMDEMO.RSC’ + #0; { Note #0 ! } 
rsrc_load (addr (ResourceName [1])) { Note [1] ! } 


IF GemError = 0 THEN FatalError(‘GEMDEMO.RSC is missing!’); 
rsrc_gaddr (R_TREE, MAINMENU, menu) ; 

{ : set menu tree ptr } 
rsrc_gaddr (R_TREE, ABOUTBOX, about); 

{ : set aboutbox tree ptr } 
rsrc_gaddr(R_TREE, SLCTDEMO, selection); 

{ : set selection tree ptr } 


{ set default states : } 

SetMenuState(s disable, s_enable, s disable, s_ enable, 
s disable) ; 

SetObjectStatus (about, ABOUTOK, NORMAL) ; 

SetObjectStatus (selection, BOXES, SELECTED) ; 

SetObjectStatus(selection, LINES, NORMAL) 7 

SetObjectStatus (selection, ELLIPSES, NORMAL) ; 


SetObjectStatus (selection, PIES, NORMAL) ; 
menu bar (menu, 1) { draw menu } 
END; 


Note how the “Pascal-to-C-string” conversion is made : Use a normal Pascal string, 
append a “C”-style #0, and ignore the length-of-string element [0] when passing the 
address to rsrc_load.Also note how the WINMENU is changed, so that only the 
TXTOPEN, GRAOPEN and GRASELEC items are enabled. 
Demolnterface.SetObjectStatus simply changes an object's state field : 


Procedure SetObjectStatus (t > TreePtr; 
index, newstatus : Integer); 
BEGIN 
t*[index].o status := newstatus { quite simple... } 
END; 


Waiting for events 

In the demo program a rather simple event scheme is used : Wait for something to be 
present in the message-pipe, react upon the messages and do nothing else! 

More formally, this can be expressed so : 

1. As long as the user doesn’t want to quit do : 

2. Wait for an event 

3. If it’s a menu event then call the menu handler else 

4. If it’s a window event then call the window handler 

5. Loop 

6. Close still open windows if any exist 


Gem 6.7 


This was implemented in GemDemo.Dispatch : 
Procedure Dispatch; 
VAR 
pipe : ARRAY [(0..15] OF Integer; { message pipe } 
BEGIN 


REPEAT 
evnt_mesag (@pipe) ; { wait for an event... } 
CASE pipe[0] OF { take action } 


MN SELECTED : HandleMenu (pipe [3], pipe[4]); 
WM_ REDRAW : RedrawWindow (pipe[3], pipe[4], pipe[5], 
pipe[6], pipe[7]); 


WM TOPPED : TopWindow (pipe [3]) ; 
WM CLOSED : CloseWindow (pipe[3]); 
WM FULLED : FullWindow (pipe [3]) ; 
WM SIZED : SizeWindow (pipe [3], pipe[6], pipe[7]); 
WM MOVED : MoveWindow (pipe [3], pipe[4], pipe[5]) 
END 
UNTIL quit; 


CloseWindow(textwindow); { make sure, the windows are closed } 
CloseWindow (grafwindow) 
END ; 


Dealing with menu events 
When the user selected a menu item, the menu handler is called in order to do the 
requested operation and reset the menu bar : 
1. If the item was ABOUTBAR then show the ABOUTBOX 
2. If the item was a window operation then call the window handler 
3. Reset the menu title to normal video (non-selected) 
DemoMenu.HandleMenu implements this : 
Procedure HandleMenu; 
BEGIN 
CASE title OF 
DESKMENU : CASE index OF 
ABOUTBAR : DoAboutBox 


END; 
WINMENU : CASE index OF 
WINCLOSE : CloseTopWindow; 
TXTOPEN : OpenTextWindow; 


TXTCLOSE : CloseTextWindow; 
GRAOPEN : OpenGraphicsWindow; 
GRACLOSE : CloseGraphicsWindow; 
GRASELEC : SelectGraphicsDemo 
END; 
QUITMENU : CASE index OF 
QUITBAR : quit := TRUE 
END 
END ; 
menu_tnormal (menu, title, 1) { set menu title back to normal } 


END; 
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Handling the ABOUTBOX 
The ABOUTBOX shows some information about the demo and waits for the user to 
click the [ Ok ] button. The general steps involved in showing a dialog box are : 


1. Center the dialog box on the screen 

2. Reserve some memory space for the dialog box border area 

3. Draw a growing box outline 

4. Draw the dialog box 

5, Let the AES supervise all events until an object with an Exit flag is chosen 
6. Draw a shrinking box outline 

7. Restore the border area memory 

8. Reset selected objects if desired 


The AES automatically makes sure to place a Redraw message in the pipe. 


Procedure DoAboutBox; 


VAR 
x, y, W, h: Integer; { Dialog box outline size } 
i : Integer; { Item index ending Gialog box (ABOUTOK) } 
BEGIN 


{ centre on screen } 

form center (about, Xx, Yr, W, hh)? 
{ reserve RAM } 

form dial (FMD START, 0, 0, 0, 0, xX, Yr W, A)? 
{ draw growing box } 

form dial (FMD_GROW, 0, 0, 0, 0, xX Yr Wr hj? 
{ draw dialog box } 

objc draw(about, 0, S7FEFF, xX, Y, W, hh); 


{ do the dialog } 
i := form do(about, 0); 
{ shrinking box } 


form dial (FMD SHRINK, 0, 0, 0, O, xX Yr Wr hh); 
{ release RAM and redraw borders } 
form dial (FMD_FINISH, O, 0, 0, O, Xp Yr Wy A)? 
{ reset button state } 
SetObjectStatus (about, ABOUTOK, NORMAL) 
END; 


Notes : The form_dial calls with the FMD_START and FMD_FINISH parameters 
stores and restores, respectively, the screen area where the dialog box will be shown. 
The rest of the redraw, however, must be conducted by the application (GEMDEMO) 
itself.objc_draw is set to start drawing at the root (0) and all levels ($7FFF = 32767). 
A such enormous number is chosen to be 117% sure that all elements are drawn, no 
matter how obscure the dialog tree is! 
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Handling the SLCTDEMO dialog 

Dealing with the SLCTDEMO dialog really isn’t much different from handling the 
ABOUTBOX, except that step 8 (reset objects) isn’t performed, as this dialog’s 
selectable items are all radio buttons, i.e. the AES automatically deselects the currently 
selected when another item is chosen by the user. The final step 8 is replaced with : 


8 : Determine which icon was selected 
DemoWindows.SelectGraphicsDemo implements this : 


Procedure SelectGraphicsDemo; 
VAR 
x, y, w, h: Integer; { dialog border size } 
selected : Integer; { selected demo icon index } 
BEGIN 
form_center(selection, x, y, w, h); 
form dial(FMD START, 0, 0, 0, 0, x, y, w, hh); 
form dial (FMD GROW, OG, 0,» 0} 0, He ¥, We Te 
objc | -draw(selection, 0, STEFF, Ke Ve We Ale 
selected := form _do(selection, 0); 
form dial (FMD SHRINK, 0; 0, 0, 0, x, y, w, h); 
form dial (FMD FINISH, 0, 0, 0, 0, x, y, w, h); 


CASE selected OF { set correct demo state : } 
BOXES > Gemo := BoxesDemo; 
LINES : Gemo := LinesDemo; 
ELLIPSES : demo := EllipsesDemo; 
PIES : Gemo := PiesDemo 
END; 


ForceGraphicsRedraw { make sure graphics window is redrawn } 
END ; 


Opening the windows 
Window management can be divided into the following actions : 


- creation : reserving memory 

- set-up : setting title, info-line etc. 

- opening : putting the window on the screen 

— changing/redrawing : changing size, title etc. and updating 
work area 

- closing : removing the window from the screen 

- deleting : release memory 
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We shall in this section concentrate on creation, set-up and opening. The steps are : 


1. Prevent the AES from responding to mouse actions 

1. Decide window elements to be active (name, close box etc.) 

3. Decide maximum window size (when fulled) 

4. Create the window and store the window handle 

5. Set the window title. The title must be a static (global) 
variable in “C” format! 

6, Draw expanding rectangle 

7. Open the window ona specified position 

8, Setting the WINMENU items correctly 

9. Allow the AES to respond to mouse actions again 


The AES will all by itself put a redraw message in the pipe. 


Two almostidentical procedures exist, one for the text window and one forthe graphics 
window, both of which can be found in DemoWindows : OpenTextWindow and 
OpenGraphics Window, where only the last is shown here : 


Procedure OpenGraphicsWindow; 
BEGIN 
{ create window : } 
grafwindow := wind create (GrafElements, Minx,MinY, MaxW,Maxk) ; 
IF grafwindow >= 0 THEN BEGIN { created ok... } 
wind update (BEG UPDATE) ; { AES : leave us alone! } 


{ set window name : } 
wind set (grafwindow, WF_NAME, 
HiPtr (GrafName[1]), LoPtr(GrafName[1]), O, Oe 


{ draw a nice expanding box and open window } 
graf growbox (Grafx + GrafW DIV 2 - 5, 
GrafY + GrafH DIV 2 - 3, 10, 10, 
Grafx, GrafY, Grafw, GrafH) ; 
wind open (grafwindow, Grafx, GrafY, GrafW, GrafH); 


{ set WINMENU’s state ] 
SetMenuState(s enable, s_leave, s_leave, s disable, 
s enable); 
wind update (END_UPDATE) { let the AES rule again } 
END 
END; 


Notes : The wind_update calls tells the AES that we’re changing the desktop, and don’t 


want to be interfered doing that.Also note the use of the HiPtr and LoPtr functions to 
return the high-word and low-word of a variable’s address respectively. 
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Redrawing windows 

This is one of the more exiting aspects, frightening at first but actually quite simple 
when you get to know it. The basic principle of redrawing a window is that of 
redrawing a number of small rectangles, each representing a visible area of the 
window. These rectangles are kept in a “rectangle list” which the AES manages 
automatically. Each window has its own rectangle list, which it empties when a redraw 
is requested.In order to redraw a window, the following steps are to be performed : 


. Erase mouse and begin window update 
. Get the first element in the rectangle list 
While rectangle from rectangle list is not empty do : 
If the rectangle is to be redrawn (intersects) : 
Set clipping rectangle 
Clear it 
Call the appropriate redraw procedure (text or graphics) 
Else ignore 
Get next rectangle from the rectangle list 
. Loop 
. Turn mouse back on and end window update 
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AS strange as it may seem the actual redraw procedure will do acomplete drawing, but 
as the clipping rectangle is set, only a part of it is actually drawn on the screen. This 
can be done without an enormous waste of time as the process of ignoring graphics is 
much faster than the actual setting of points. 


The above scheme is implemented in DemoWindows.RedrawWindow : 


Procedure RedrawWindow (handle, x0, yO, w0, h0 : Integer); 
VAR 


Prd EZ s Grect? { used for conversion purposes } 
x, Yr, Ww, h: Integer; { rectangle to redraw } 
a : Array 4; { used for conversion purposes } 


{ Redraw text window } 
Procedure DoTextRedraw; 


VAR 
xX, Y, w, h : Integer; { work area size } 
a : Integer; 
BEGIN 
wind get (textwindow, WF WORKXYWH, x, y, w, h); 
1 := CharBoxHeight; { y-offset to start writing at } 


WHILE 1 <= (y + h - 1 + CharBoxHeight) DO BEGIN 
v_gtext (VDI handle, x, y + i, TextLine); 
INC (i, CharBoxHeight) { one line written } 
END 
END; 
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{ Redraw graphics window } 
Procedure DoGraphicsRedraw; 


BEGIN 
CASE demo OF 
BoxesDemo ; DoBoxes; 
LinesDemo : DoLines; 
EllipsesDemo : DoEllipses; 
PiesDemo : DoPies 
END 
END; 


BEGIN { RedrawWindow } 
Rl.x := x0; Rl.y := y0; 
Rl.w := wO; Rl.h := hO; { set up R1 } 

} wind_update (BEG UPDATE) ; { we’re updating! 
graf _mouse(M OFF, NIL); { and want no mice around! 
vsf_color(VDI handle, White); { clear work area styles : 
vst | style (VDI handle, SOLID); { solid, white fill 


ee 


{ get first rectangle from the window rectangle list : } 
wind_get (handle, WF _FIRSTXYWH, x, y, w, h); 


WHILE (w <> 0) AND (h <> 0) DO BEGIN { there IS a rect. : } 
R2.x := x7 R2.y := y; 
R2.w := we R2.h := h; { set up R2 } 
IF intersect (Rl, R2) THEN BEGIN { is area destroyed? } 


x s= RZ. y >= R2.y; 

W := R2.w; h >= R2.h; 

a{O] := x; a{1) := y? 

a(zZ]) «= x+t+we ly als] «= yt h= Ls 

vs_clip(VDI handle, 1, a); { set clipping } 
v_bar (VDI handle, a); { and clear messy rect. } 


IF handle = textwindow THEN DoTextRedraw 
ELSE DoGraphicsRedraw 
END; 


{ one rectangle done, the rest to go! } 
wind get (handle, WF NEXTXYWH, x, y, w, h) 
END; 7 
graf mouse(M ON, NIL); { let’s see the mouse again } 
wind update (END UPDATE) { now we’re through updating } 
END; 
After some operations, it’s required to redraw all of a window. This can be done in 
many ways, one of which is simply calling an appropriate redraw procedure with the 
entire work area as input parameters. Another method, the one used here, is that of 
sending messages from one part of an application to another via the AES pipe system! 
It’s a terrible waste of time and resources, but informative, so let’s take a look at the 
procedure DemoGraphs.ForceGraphicsRedraw : 


Gem 6.13 


Procedure ForceGraphicsRedraw; 


VAR 
mypipe : ARRAY [0..7] OF Integer; 

BEGIN 
GetWindowSize; { Redraw all of window } 
mypipe [0] := WM_REDRAW; { The message } 
mypipe [3] := grafwindow; { The window } 
mypipe [4] := wx; { 2% } 
mypipe [5] := wyY; { y } 
mypipe [6] := ww; { width } 
mypipe [7] := wH; { height } 
appl write (AES handle, SizeOf(mypipe), addr (mypipe) ) 


{ : write message } 


4 


ND; 


The values in the pipe buffer are set up as described in the GEM documentation. 


Topping, moving and sizing windows 

Topping a window is very simple : Call the wind_set procedure with the new window 
handle and the correct function id, and the AES takes care of the rest, including placing 
a redraw message in the pipe if required. DemoWindows.TopWindow implements 
this : 


Procedure TopWindow(handle : Integer) ; 
BEGIN 

wind set (handle, WF TOP, 0,0,0,0) { set handle to top window } 
END; 


Moving a window is not much more difficult : Call wind_set with window handle, 
function id and its new x,y coordinates and old width and height. 
DemoWindows.TopWindow shows a not too efficient implementation. Its lack of 
efficiency is due to the fact that allthough GEM puts both x, y, w and h information in 
the pipe, the width and height is ignored and have to be obtained again with help from 
wind_get. This is due to a wish of demonstrating one of the wind_get facilities : How 
to obtain information about the current window size and position. Well, here itis: 


Procedure MoveWindow (handle, toX, toY : Integer); 

VAR w, h, dummy : Integer; { border area size } 

BEGIN 
wind_get (handle, WEF CURRXYWH, dummy, dummy, w, h); { get w,h } 
wind_set (handle, WF _CURRXYWH, toX, toY, w, h); { new x;y } 
IF handle = grafwindow THEN ForceGraphicsRedraw 

END ; 
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Sizing a window is much like moving it; the only difference is in the parameters : 


Procedure SizeWindow(handle, newW, newH : Integer) ; 

VAR x, y, dummy : Integer; 

BEGIN 
wind_get (handle, WF_CURRXYWH, x, y, dummy, dummy); { get x,y } 
wind set (handle, WF CURRXYWH, x, y, newW, newH); { set w,h } 
IF handle = grafwindow THEN ForceGraphicsRedraw 

END ; 


Closing the windows 

The term “close” is used rather loosely here : It covers two aspects of handling : 
; removing the window from the screen (closing it) 

- removing the window information from the memory (deleting it) 


In the GEMDEMO we both close and delete a window when the user closes it, as 
shown in both DemoWindows.CloseGraphicsWindow and CloseTextWindow of 
which the former is shown here : 


Procedure CloseGraphicsWindow; 
VAR x, y, w, h : Integer; { window border area } 
BEGIN 
IF grafwindow >= 0 THEN BEGIN 
wind update (BEG UPDATE) ; { leave us alone } 


{ get border size and draw a shrinking box : } 

wind _get (grafwindow, WF CURRXYWH, x, y, w, h); 

graf_shrinkbox(x + w DIV 2 - 5, y +h DIV 2 - 5, 10, 10, 
X, Yr W, hh)? 


wind close (grafwindow) ; { remove window from screen } 
wind _delete(grafwindow) ; { and memory too } 
grafwindow := -1; { -1 to prevent mistakes } 
IF textwindow >= 0 THEN { update WINMENU } 
SetMenuState(s leave, s leave, s leave, s enable, 
s disable) 
ELSE 
SetMenuState(s disable, s leave, s leave, s enable, 
Ss disable); 
wind_update (END UPDATE) { let AES rule } 
END 


END; 


Note the order in which the operations are performed : A window MUST be closed 
before it’s deleted or your ST just might get very strange ideas! 
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Finishing up with the resources 

When the program is through with the resources, it can release the memory occupied 
by these. Before doing so, it removes the menu bar from the screen, as shown in 
Demolnterface.End_Resource: 

Procedure End Resource; 


BEGIN 
menu_bar(menu, 0); { remove menu from screen } 
“sre free { release memory } 
END; 


Saying good-bye 

All good things must have an end, and so must our demo : 

1. Shrink a box to indicate to the user that we’re saying good-bye. 

2. Close the virtual workstation 

3, Exit application | 
The above steps are contained in DemolInterface.End_Gem : 

Procedure End Gem; 


BEGIN 
graf shrinkbox(0, 0, 0, 0, MinX, MinY, MaxW, MaxH) ; 
v_clsvwk(VDI_handle) ; { close virtual workstation } 
appl exit { exit application (GEMDEMO) } 
END ; 


The main program 
Finally, we show the main program, which performs the following steps : 
Initialize GEM 
If GEM initialization was successful then : 
Initialize the resources 
Create default graphics data 
Call the event dispatcher 
End resource usage when the user selected to quit 
End GEM usage 
Else abort with error message 
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The implementation is : 
BEGIN { main program } 
IF Init Gem THEN BEGIN { initialize 
graf mouse (ARROW, NIL); { arrow mouse form 
Init Resource; { load and set up resources 
MakeGraphDatea; { set up data for graphics demo 
Dispatch; { handle the events until quit 
End Resource; { remove resources 
End Gem { end GEM usage 
END 
ELSE FatalError(*‘Could not initialize | GEM properly!’) 
END. 
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This concludes the GEM demo section. 
6.16 Gem 


The HighSpeed libraries 


Purpose of this section 

This section concentrates on the definitions in the HighSpeed libraries GemDecl, 
GemAES and GemVDL It is mainly intended as a reference and therefore kept short. 
For full understanding, it is recommended that it’s read in conjunction with a more 
fulfilling document on GEM programming. 


All procedures/functions are shown with their heading and a very short description of 
their purpose, their parameters/return values and mostly a short example of their use. 
The constants are mainly listed together with the procedures that use them. 


Although the style is rather formal, it is the author’s hope that you, dear reader, don’t 
find it triple-B : Boring Beyond Belief! 


Basic terms 
Before discussing the procedures, functions etc. it would be of 
help to you to know the following terms : 


Term Interpretation 


“Button” A button on the mouse 
“Key” Akey on the keyboard 


It may be quite natural to you, but unfortunately not all literature is consequent when 
it comes to these terms. 


Introduction to the HighSpeed libraries 

The HighSpeed libraries implement a full set of GEM routines on the ST. We have 
chosen to adopt the more-or-less standard calling names used by the “C” language 
libraries and adopt the parameter layout and names as well. This was done in order to 
simplify reading additional GEM documentation such as the Digital Research GEM 
manuals, as most of the documents available concentrate on the “C” way of doing 
things.As most of GEM was written in “C”, it is necessary to obey the requirements 
of parameters, especially the extensive use of pointers instead of typed parameters, and 
the “C” way of using strings, which is a bit different from the HighSpeed Pascal way. 
In HighSpeed Pascal, the string layout is as follows : 


String element holds 

[0] the length of the string 

Ll first character of the string 
[n] n’th character of the string 
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“C” uses this layout 


[0] the first character of the string 

[1] second character of the string 

[n] (n-1)’th character of the string 

[n+1] . CHR(O) = #0 = string terminator character 


This implies that when passing a pointer to a string toa GEM function such as rsrc_load 
you will have to append a #0 and ignore the first element [0] : 


VAR filename : String; 


filename := ‘MYFILE.RSC’ + #00; 
rsrc_load( addr( filename[1]) ); 


In this way, the Pascal length-of-string element [0] is ignored. 


Note that the procedures which take a string as parameter don’t have to worry about 
the string length element, but they do have to take care of appending a #0 
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GemDecl 


This library contains constants, types and variables used by the other two libraries 
together with a few procedures. 


The constants are : 


control max = ll; Max size of control array 

intin max = 131; { Max size of intin array 

intout_max = 139; { Max size of intout array 

workout max = 56; Max size of workout array = 44+control _max 


addrin max = 15; size of addrin array 


a ee oe 


addrout_max = 15; Max size of addrout array 
jglobal_max = 14; Max size of global array 
pts max = 144; { Max size of ptsin/ptsout arrays 


The declared types are : 


{ Parameter blocks } 
AES param = ARRAY [0..5] OF “global_ARRAY; { AES } 
VDI_param = ARRAY [0..4] OF “global_ARRAY; { VDI } 


{ Other strictly GEM-related arrays } 
global ARRAY = ARRAY [O..global max] OF Integer; 
control ARRAY = ARRAY [O..control_ max] OF Integer; 


II 


intin ARRAY = ARRAY [0..intin max] OF Integer; 
intout ARRAY = ARRAY [{0..intout_max] OF Integer; 
ptsin ARRAY = ARRAY [0. -pts_max] OF Integer; 
ptsout ARRAY = ARRAY [0. .pts_ max] OF Integer; 


addrin ARRAY ARRAY [0..addrin max] OF Pointer; 
addrout ARRAY = ARRAY (0. .addrout max] OF Pointer; 
workout ARRAY = ARRAY [O. .workout_max] OF Integer; 


{ Multi-purpose } 

\ARRAY 2 = ARRAY [(O..1] OF Integer; 
ARRAY 3 = ARRAY [0..2] OF Integer; 
ARRAY 4 ARRAY [0..3] OF Integer; 
ARRAY 5 = ARRAY [0..4] OF Integer; 


ARRAY 6 = ARRAY [0..5] OF Integer; 
ARRAY 8 = ARRAY [0..7] OF Integer; 
ARRAY 10 = ARRAY [0..9] OF Integer; 
ARRAY 16 = ARRAY [(0..15] OF Integer; 


ARRAY 37 = ARRAY [0..36] OF Integer; 


{ A graphic rectangle } 
GRect = RECORD 

xy,wrhs: Integer 
END; 
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Declared variables are: 


AES parameter block } 
VDI parameter block } 
General arrays : 
Input parameters 
Output parameters 


AES pb : AES param; 

VDI pb : VDI param; 
control : control ARRAY; 
intin : intin_ARRAY; 
intout : intout ARRAY; 
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ptsin : ptsin ARRAY; VDI arrays : 

ptsout : ptsout ARRAY; 

addrin : addrin_ ARRAY; { AES arrays } 
addrout : addrout ARRAY; 

global : global ARRAY; { Global information } 


Function Min(a, b : Integer) : Integer; 
Return the smallest number of a and b. 
Ex. : a := min(5,2) returns a= 2. 


See also : Max 


Function Max(a, b : Integer) : Integer; 
Return the largest number of a and b. 
Ex. : a := max(20,40) returns a = 40. 


See also : Min 


Function HiPtr(VAR v) : Integer; 
Return the high-word of v’s address. 
Ex. : hi_word := HiPtr (a) 


See also : Loptr 
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Function LoPtr(VAR v) : Integer; 

Return the low-word of v’s address. 

Ex : lo word := LoPtr (a) 

HiPtr and LoPtr especially finds their use with GemAES .wind set, as 
it - depending on how it is called - requires a four-byte address 


in the form of two two-byte integers. 


See also : HiPtr 


Function BitTest (No : Integer; Value : Longint) : Boolean; 
Test if bit No in Value is set. 


Ex. : IF BitTest (3, 200) THEN WriteLn(*Bit 3 set’) ELSE 
WriteLn( ‘Bit 3 clear’) 


Function Intersect(rl : GRect; VAR r2 : GRect) : Boolean; 


Test if two rectangles intersect (have an area in common). Used for 
window redraws. r2’s contents are changed to hold the resultingrectangle, 
and hence contains garbage if no intersection was found. 


EX. 


VAR 
vl, v2. = GREECE? 
BEGIN 
rl.x i= 10; riley := 107 xil.w := 200; ri.h := 100; 


22% 3125; xr2.y s= 557 x2.w = 100; r2.h := 100; 
| IF Intersect (r1, r2) THEN 
WITH r2 DO 
WriteLn(‘Intersection : x=’, x, ‘ y="r Yr \ w=', W, 
\ h=', h) 
ELSE 


WriteLn (‘No intersection!’ ) 
END 


produces as output : 
Intersection : x=125 y=55 w=85 h=55 


See also : EmptyRect 
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Function EmptyRect(r : GRect) : Boolean; 
Test if the rectangle r is empty, i.e. w <= 0 or h = 0. 
Ex. : IF NOT EmptyRect(r) THEN DoMyOwnDrawing 


See also : Intersect 


Procedure MakeXYXY(xywh : GRect; VAR xyxy : Array 4); 


Convert between xl, yl, x2, y2 and x, y, w, h format. MakeXYXY and 
MakeXYWH are complementary, as the following example shows : 


EX. 

VAR 
xyxy : Array 4; 
xywh : GRect; 


MakeXYXY(xywh, xyxy); 
MakeXYWH (xyxy, xywh) 


won’t bring any change to xywh. 


See also : MakeXYWH 
Procedure MakeXYWH(xyxy : Array 4; VAR xywh : GRect); 


Convert from XYXY system to XYWH system. 


See also : MakeXYXY 
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GemVDI 


All GEM VDI procedures and functi 
The VDI takes care of basic graphics 0 


ons can be found in this section. 
perations, which the AES then takes advantage 


of in order to do more advanced things like dialog box management and menu han- 
dling. But of course, the VDI procedures are available - and indispensable - for the 
GEM programmer. 


The constants declared in GemVDI are : 
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Fill interior styles : 


no fill 


solid fill in current color 


bit pattern 
hatch 
user defined 


He te 


Some fill patterns : } 


PolyLine line styles : 


same as above 
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. bit layout 
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KAKKKKKK Colo e 
hike | ORE RRs 
PolyLine end styles : } 


Text effects : 
normal appearance 


boldface 
shaded 
italic 
underlined 
outlined 
shadowed 


le ed 


Gem 6.23 


Writing modes : 
replace 
transparent 

XOR 

erase 
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MD REPLACE 
MD TRANS 
MD XOR 

MD ERASE 
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Bit-BLie: flags + 


ALL WHITE 
S AND D 

S AND NOTD 
S ONLY 
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D_ ONLY 
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NOT _D 
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{ Input modes : 
REQUEST 4B { request mode 
SAMPLE = 2; { sample mode 


GemVDI also declares a couple of types : 


MFDB = record 
mptr : POINTER; 
formwidth : Integer; 
formheight : Integer; 
widthword : Integer; 
formatflag : Integer; 


MFDB layout (MemoryForm) 
raster address 

width of raster in pixels 
height of raster in pixels 
width in terms of 16-bit words 
device specific/standard : 0/1 
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memplanes : Integer; raster planes 
resl ; Integer; reserved... 
res2 ; Integer; 
res3 s Integer; 

END ; 


String80 = String[80]; 
Stringi25 = String[{1Z25]s 
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Control Functions 


Procedure v_opnwk (WorkIn : intin Array; 
VAR handle : Integer; 
VAR WorkOut : workout Array); 


Open workstation (load device drivers). Workin specifies what the 
workstation should look like, handle is the workstation handle, 
whereas WorkOut returns what the workstation does look like. 
Note : This procedure 1s not properly implemented on all ST-GEM 
versions and tend to crash system if used. This is due to the ST’s 
missing device drivers for plotters, graphics tablets etc. 


WorkIn : input parameters 
handle : workstation/device handle 


WorkOut : return parameters 


See also : v_clswk, v_opnvwk, v_clsvwk, v_clrwk, v_updwk 


Procedure v_clswk (handle : Integer) ; 
Close the workstation opened by v_opnvk. 
handle : workstation/device 


See also : v_opnwk, v_opnvwk, vV_C lsvwk, v_clrwk, v_updwk 


Procedure v_opnvwk (WorkIn : intin_Array; 
VAR handle : Integer; 
VAR WorkOut : workout _Array) ; 


Open a virtual workstation. On the ST, this means opening the screen. 
The WorkIn parameters are the same as the ones used by v_opnvk, but 
they are all ignored by the ST, soall attributes must be set by using 
the proper attribute procedures. This call must be preceded by a call 
to GemAES.appl init. handle is the value obtained by an earlier call 
to graf handle. 


WorkIn : input parameters 
handle : workstation/device handle (normally from graf_handle) 


WorkOut : output parameters 


See also : v_opnwk, v_clswk, v_clsvwk, v_clrwk, v_updwk 
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Procedure v_clsvwk (handle : Integer); 


Close the virtual workstation (screen). This is usually one of the 
last calls, a program makes before terminating. 


handle : workstation/device 


See also : v_opnwk, v_clswk, v_opnvwk, v_clrwk, v_updwk 


Procedure v_clrwk (handle : Integer) ; 


Clear workstation, i.e. clear the screen and set it to the background 
color. On a printer or a plotter this would indicate paging, whereas 
the opcode would be written to a Metafile. 


handle : workstation/device 


See also : v_opnwk, v_clswk, v_opnvwk, v_clsvwk, v_updwk 


Procedure v_updwk(handle : Integer); 


Update workstation. This procedure is only of interest when using 
devices such as printers, plotters etc. but not the screen. It flushes 
the internal output-buffer and thereby makes sure that what the 
application wrote to the device really is printed. 


handle : workstation/device 


See also : v_opnwk, v_clswk, v_opnvwk, v_clsvwk, v_clrwk 


Function vst_load fonts (handle, select : Integer) : Integer; 


Load fonts. It loads a character set (select) from a specified 
device. It returns 0 if no (other) character set(s) exist. This 
implies that 0 is returned if it is attempted to load a font for the 
ST screen, as it has one font only for each resolution. Is mainly 
used together with GDOS. 


handle : device 
select : the character set to load 
Return value : loaded font, or 0 = no font loaded 


Ex. : IF vst _load_fonts(VDI_handle, 2) = 0 


THEN WriteLn( ‘No font 2’); 
See also : vst unload fonts, vst_font, vqt_name, vqt_fontin 
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Procedure vst_unload_ fonts (handle, select : Integer) ; 


Free up memory used by a font. GDOS related. 


handle : device 
select : font to remove 
Ex. : vst_unload_font (VDI handle, 2); 


See also : vst load fonts, vst_font, vqt_name, vqt_ fontinfo 


)Procedure vs clip(handle, clipflag : Integer; 
pxyarray ; Array 4); 


Turn clipping on/off. Graphical operations are only performed pig 
their coordinates lay inside the clipping rectangle. 


handle : device 
clipflag : 0 = no clipping; 1 = clipping 
pxyarray : corner coordinates 
EX. 
VAR 
p : Array 4; 
BEGIN 
{ GEM initializations goes here... } 
p(0] := 100; pf1] := 1107 { upper left (x,y) = (100, 110) } 
p(2] := 400; p[3] := 310 { lower right (x,y) = (400, 310) } 


vs clip(VDI_handle, 1, p); 


vs clip (VDI_handle, By: 


{ turn clipping on } 


{ turn clipping off again } 
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Output Functions 
These procedures handle simple graphics outputs such as line drawing, point setting 
etc, together with more complex ones like filling polygons etc. 


Procedure v_pline(handle, count : Integer; 
pxyarray : ptsin Array) i 


Draw PolyLine. pxyarray contains coordinates, so that pxyarray[0]= 
starting x, pxyarray[1] = starting y, pxyarray[2] =tox, pxyarray [3] 
= to y etc. count contains the number of coordinates used = (highest 
array element used + 1) DIV 2. 


handle : device 

count : number of coordinate sets (x,y) (min. 2) 
pxyarray : coordinate sets 

Ex, 3$ 


VAR p : ptsin Array; 

BEGIN 
{ GEM initializations go here... } 
p[0] := 10; p[1) := 20; p[2] := 30; p[4] := 40; 
Piel s= 30: ple} = 60s wi) 707 pfs] 80; 
v_pline(VDI_ handle, 8 DIV 2, p); 
{ try changing it to v_ pmarker } 


draws a line from (10,20) to (30,40) to (50,60) to (70,80). 


See also : v_pmarker, vsl_ type, vsl_udsty, vsl width, vsl_color, 
vsl_ ends 


Procedure v_pmarker (handle, count : Integer; 
pxyarray : ptsin Array) ; 


Set a series of points. Coordinate setup is as for v_pline. 
handle : Gevice 
count : number of coordinate sets (x,y) (min. 2) 


pxyarray : coordinate sets 


see also : v_pline, vsm_type, vsm height, vsm color 
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Procedure v_gtext (handle, x, y : Integer; chstring : String80); 


Draw graphic text starting at coordinates (x,y) = lower left corner 
of the text. 


handle : device 
x ¥ : string coordinate 
chstring : the string (“C” format : #00 suffix) 


Ex. sv gtext (VDI_handle, 10, 20, ‘HighSpeed Pascal’ + #00) ; 


See also : v_justified, vst_height, vst _ point, vst_rotation, 
vst_color, vst_effects, vst_alignment 


} 
Procedure v_fillarea (handle, count : Integer; 
pxyarray : ptsin Array); 


Fill a polygon with the color, style, pattern etc. set by the 
attribute Functions. pxyarray holds the polygon’s corner coordi- 
nates, whereas count holds the number of coordinates. 


handle : device 
count » number of coordinate sets 
pxyarray : corner coordinates 


See also : v_contourfill, vr_recfl, vsf_ style, 
vsf color, vsf_perimeter, vsf_updat, vsf_ interior 


Procedure v_cellarray (handle : Integer; 
pxyarray : Array 4; 
rowlength, elused, 
numrows, wrtmode : Integer; 
colarray : intin Array); 
sreate acell array. Acellarray isa rectangle divided into a number 
of rows and columns, where each of these sub-areas can be assigned 
their own point color. The parameters are ; 
handle : Device handle 
pxyarray : Corner coordinates 
[0] = lower left x; [1] lower left y 
(2] = upper right x; [3] = upper right y 
rowlength : Line length in colarray 
elused - Number of zones in colarray lines 
numrows : Number of lines in colarray 
wrtmode : Character mode 
colarray : Color specifications 
See also : vq cellarray 
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Procedure v_contourfill (handle, x, y, index : Integer); 


Fill an area with the current fill colorstyle color, until the color 
given by index is met. 


handle : device 
X, Y  : point within area to be filled 
index : céntour color 


See also : v_fillarea, vr_recfl, vsf_style, vsf_color, 
vsf perimeter, vsf_updat, vsf_interior 


Procedure vr_recfl(handle : Integer; pxyarray : Array 4); 


Fill a rectangle with the currently set color and attributes. 
Pxyarray [0] and [1] defines one corner of the rectangle, and pxyarray 
[2] and [3] defines the diagonally opposite corner of the rectangle. 


handle : device 
pxyarray : corner coordinates 


BX. : 


VAR p : Array 4; 
p[0] := 10; p[l]) := 40; pf{2] := 200; p[3] := 100; 
vr _recfl (VDI handle, p) 


See also : v fillarea, v_contourfill, vsf_style, vsf_color, 
vsf perimeter, vsf_updat, vsf_interior 


Graphic Functions 
These are the more advanced GEM procedures such as drawing circles, pies etc. 


Note : In GEM, all normal degree-measurements are multiplied with 10 to give a one- 
digit precision when converting degrees from real to integer, e.g. 1.23 degrees be- 
comes 12.3 in GEM notation. 

A formula for converting to GEM format is this : 


GEMdegree := TRUNC(NormalDegree * 10); 
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Procedure v_bar(handle : Integer; pxyarray : Array 4); 
Filled bar. Attributes must be set beforehand. 


handle : device 
pxyarray : diagonally opposite corner coordinates 


See also : v_arc, v_pieslice, v_circle, v_ellarc, 
v_ ellpie, v_ellipse, v_rbox, v_rfbox 


Procedure v_arc (handle, x, Y, radius, begang, endang : Integer) ; 
Draw an arc. 


handle : device 

Ke, Y >: center point 

radius : arc’s radius 

begang : starting angle (degrees * 10) 
endang : ending angle (degrees * 10) 


Esa ¥ v_arc (VDI_handle, 320, 200, 100, 0, 450); 


See also : v_bar, v ‘ pieslice, v_circle, v_ellarc, v_ellpie, 
v_ellipse, v_rbox, v_rfbox 


Procedure v_pieslice (handle, x, y, radius, 
begang, endang : Integer); 


Draw a filled arc in the same way as v_arc, except that the end points 
of the arc are connected to the centre point, and the thereby created 
area is filled. 


handle 


: device 
x, y 2: center point 
radius : arc’s radius 
begang : starting angle (degrees * 10) 
endang : ending angle (degrees * 10) 


EX, = v_pieslice (VDI_handle, 320, 200, 100, 0, 450); 


See also : v_bar, v_arc, v_ circle, v_ellarc, v_ellpie, v_ellipse, 
v_rbox, v_r fbox 
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Procedure v_circle (handle, x, y, radius : Integer) ; 


Draw a filled circle. All attributes must be set beforehand. 
handle : device 

ay Y : center point 
radius : circle’s radius 


EX. 3: v_circle(VDI_ handle, 320, 200, 100); 


see also : v_bar, v_arc, v_pieslice, v_ellarc, v _ellpie, 
v_ellipse, v_rbox, v_rfbox 


Procedure v_ellarc (handle, 
x, Yr 
xradius, yradius, 
begang, endang : Integer); 


Draw an elliptical arc. 


handle : device 

x ¥ center point 

xradius : radius in the x-direction 
yradius : radius in the y-direction 
begang : starting angle (degrees * 10) 
endang : ending angle (degrees * 10) 


Ex. : v_ellarc(VDI_ handle, 320, 200, 50, 70, 0, 450); 


see also : v_bar, v_arc, v_pieslice, v_circle, v ellpie, 
v_ellipse, v_rbox, v_rfbox 
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Procedure v_ellpie (handle, 
x, Yr 
xradius, yradius, 
begang, endang =: Integer) ; 


Draw a filled elliptical arc in the same way as v_ellarc. 


handle : device 

x, ¥ : center point 

xradius : radius in the x-direction 
yradius : radius in the y-direction 
begang : starting angle (degrees * 10) 
endang : ending angle (degrees * 10) 


ax. : v_ellpie(VDI_handle, 320, 200, 50, 70, 5, 455); 


See also : v_bar, v_arc, v_pieslice, v_circle, v_ellarc, 
v_ellipse, v_rbox, v_rfbox 


Procedure v_ellipse (handle, x, Vi 
xradius, 
yradius : Integer) ; 
Draw a filled ellipse. Attributes must be set beforehand. 
handle : device 
Kp V : center point 
xradius : radius in the x-direction 
yradius : radius in the y-direction 


Ex. 3 v_ellipse (VDI_handle, 320,..200; 50, 70); 


See also : v_bar, v_arc, v_pieslice, v_circle, v_ellarc, 
v_ellpie, v_rbox, v_rfbox 
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Procedure v_rbox(handle : Integer; xyarray : Array 4); 


Draw a box with rounded corners. 
handle : device 
xyarray : diagonally opposite corner coordinates 


EX. 3 
VAR 
a: Array 4; 


a(O] := 10; afl] := 307; a[2] := 150; a[3] := 200; 
v_rbox(VDI handle, a); 


see also : v_bar, v_arc, v_pieslice, v_circle, v_ellarc, 
v_ellpie, v_ellipse, v_rfbox 

Procedure v_rfbox(handle : Integer; xyarray : Array 4); 

Draw a filled box with rounded corners using the current attributes. 


handle : device 
xyarray : diagonally opposite corner coordinates 


see also : v_bar, v_arc, v_pieslice, v_circle, v_ellarc, 
v_ellpie, v_ellipse, v_rbox 


Procedure v_justified(handle, x, y : Integer; 


gstring : String80; 
jlength, 
wordspace, 
charspace : Integer) ; 
Write justified text. 
handle : device 
%) ¥ : where to start writing 


gstring : string to write (remember #00) 
jlength ; width of output area 
wordspace : insert additional spaces between words? 
0 = no 
<> 0 = yes, if required 
charspace : insert additional spaces between letters? 
0 = no 
<> 0 = yes, if required 


See also : v_gtext, vst_height, vst point, vst_rotation, 
vst_color, vst_effects, vst _alignme 
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Attribute Functions 

The following procedures are used for setting colors, styles etc. for the different 
graphic operations. HighSpeed Pascal defines constants for anumber of these colors/ 
styles/etc : 


Note : These constants are defined in GemAES. 


White = O; Black = i 
Red = 2; Green = OF 
Blue = 4; Cyan = SF 
Yellow 6; Magenta = G 
LWhite = 8; LBlack = 9; 
_ LRed = 10; LGreen = lil; 
LBlue = 12; LCyan = 13; 
LYellow = 14; LMagenta = 15; 


The constants prefixed with ‘L’ are light appearances. 


For line styles, fill styles etc. it is recommended to read the sections concerning these 
attribute Functions. 


Procedure vswr_mode (handle, mode : Integer) ; 
Set the writing mode of all following graphics operations. 


handle : device 
mode : HighSpeed CONST 


1 MD REPLACE replace 

fa MD TRANS transparent 

3 MD _XOR XOR 

4 MD ERASE reverse transparent 


Ex. : vswr_mode(VDI_handle, MD_REPLACE) ; 
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Procedure vs_color(handle, index : Integer; rgbin : Array 3); 
Set color representation. 


handle : device 


index : color index in palette 

rgbin : normalized red, green and blue intensity values : 
[0] = red 
[1] = green 
[2] = blue 


The normalized values are in the range [0..1000]. 
Ex, § 

VAR r : Array 3; 

~ r[0] <= 750; x[1l] := 400; r[2] := 200; 


vs_ color(VDI handle, 3, r); 
{ sets color index 3 to a new color } 


Procedure vsl_type(handle, style : Integer) ; 
Set PolyLine line style. The line styles are : 


style HighSpeed CONST pattern 


MSB LSB 
as SOuLD KRAEKKREKKKKKKKKKKK 
Za LDASHED KRAKKKKKKKKK | 
2 DOTTED RAT oa us TERN gases 
4 DASHDOT A tag GO rly 
= DASHED iinet Co 
6 DASHDOTDOT FITER gg gO og aa 
7 user defined (see vsl_udsty below) 


A style is 16 bits wide; “*” = set (1); “.” = clear (0). 
Ex. : vsl_ type(VDI_ handle, DASHDOTDOT) ; 


See also : v_pline, v_pmarker, vsl_udsty, vsl_width, vsl_color, 
vsl_ends 
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Procedure vsl_udsty (handle, pattern : Integer); 


Set user defined line style with a 16-bit pattern laid out in the 
manner described in vsl_type. 


handle : device 
pattern : 16-bit pattern 
Xs 


vsl_udsty (VDI_handle, SCCCC): { **..**..**..**.. layout } 
vsl type (VDI_handle, 3 { user line style } 


See also : v_pline, v_pmarker, vsl_type, vsl width, vsl_color, 
/ vsl_ends 


Procedure vsl_width (handle, width : Integer); 
Set PolyLine’s line width. Note that width must be an odd number. 


handle : device 
width +: new line width 


Ex. : vsl_width(VDI_handle, 7); { pretty thick line! } 


See also : v_pline, v_pmarker, vsl_type, vsl_udsty, vsl_color, 
vsl_ends 


Procedure vsl_color (handle, colindex : Integer) ; 
Set PolyLine color. 


handle : device 
colindex : a color index from the palette 


Ex. : vsl_color(VDI_handle, Blue); 


See also : v_pline, v. / pmarker, vsl_type, vsl_udsty, vsl_ width, 
vsl_ends 
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Procedure vsl_ends (handle, begstyle, endstyle : Integer) ; 
Set PolyLine start and end styles. The style layout is as follows: 


numeric value HighSpeed CONST 


a SQUARED 
2 ARROWED 
3 ROUNDED 


handle : device 
begstyle : line begin style 
endstyle : line end style 


Ex. : vSl_ends(VDI_ handle, ARROWED, ROUNDED) ; 


See also : v_pline, v_pmarker, vsl_type, vsl_udsty, vsl_width, 
vsl color 


Procedure vsm type (handle, symbol : Integer) ; 
Set PolyMarker type. The different types are : 
symbol : value shape 


point 

plus sign 

co 

square 

diagonal cross 
diamond 

device dependent 


POU Hh WN FP 


handle : device 
There are six shapes available on the ST screen. 
Ex. : vsm_type(VDI_handle, 4); 


See also : v_pmarker, v_pline, vsm height, vsm color 
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Procedure vsm_height (handle, height : Integer) ; 
Set PolyMarker height. 


handle : device 
height : desired height 


Ex. : vsm_ height (VDI_handle, 5); 


See also : v_pmarker, v_pline, vsm_type, vsm_color 


Function vsm_color(handle, colindex : Integer); 
et PolyMarker color to colindex in the current palette. 


handle : device 
colindex : color index 


Ex. : vsm_color(VDI_handle, Yellow); 


See also : v_pmarker, v ‘ pline, vsm_type, vsm height 


Procedure vst_height (handle, height : Integer; 
VAR charwidth, 
charheight, 
cellwidth, 
cellheight : Integer); 
Set absolute graphic character height. As a result of the set height, 
new character cell sizes are calculated and returned. 


handle : device 

height : new height in pixels 

charwidth : width of a char with the new height 
charheight : height of character 

cellwidth : width of a character cell with the new height 
cellheight : height of cell 

BX. 

CONST newheight = 13; 

VAR 


chW, chH, celW, celH : Integer; 
vst_ height (VDI_handle, newheight, chW, chH, celW, celH); 


See also : v_gtext, v_justified, vst_point, vst_color, 
vst_rotation, vst_effects, vst_alignment 
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Procedure vst_point (handle, point : Integer; 
VAR charwidth, 
charheight, 
cellwidth, 
cellheight : Integer); 


Basically the same Function as vst_height, except for character 
height being given in “points” = 1/72 of an inch. 


handle : device 
height : new height in points 
charwidth : width of a char with the new height 


charheight : height of character 
cellwidth : width of a character cell with the new height 
cellheight : height of cell 


See also : v_gtext, v_justified, vst_height, vst_rotation, 
vst color, vst_effects, vst_alignment 


Procedure vst_rotation (handle, angle : Integer) ; 
Set character baseline vector to a given (GEM style) degree. 


handle : device 
angle : baseline angle 


Ex. : vst _rotation(VDI_handle, 2700); 


See also : v_gtext, v_justified, vst_height, vst_point, 
vst_color, vst_effects, vst_alignment 


Procedure vst font (handle, font : Integer) ; 
Select either the system font or a previously loaded font. 


handle : device 
font : desired font : system = 1 (6 * 6 font) 


Ex. : vst font (VDI handle, 1); 
vst_ font is of most use together with GDOS. 


See also : vst load fonts, vst_unload_fonts, vqt_name, 
vgt_fontinfo 
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Procedure vst _color(handle, colindex : Integer) ; 
Set text color. 


handle : device 
colindex : new text color 


Ex. : vst _color(VDI_handle, 4); 


See also : v_gtext, v_justified, vst_height, vst _ point, 
vst rotation, vst_effects, vst_alignment 


Procedure vst effects (handle, effect : Integer) ; 
Set special text effects. The available effects are :; 


effect HighSpeed CONST resulting style 


0 NORMAL normal 

dL. BOLD boldface 

2 SHADED shaded 

4 SKEWED italic 

8 UNDERLINED underlined 
16 OUTLINE outlined 
32 SHADOW shadowed 


The effects may be combined by adding them. 
handle : device 


EX. $ vst_effects (VDI_handle, BOLD + OUTLINE) ; 
vst_effects (VDI_handle, NORMAL) ; 


See also : v_gtext, v_justified, vst height, vst_point, 
vst_rotation, vst_color, vst_alignment 
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Procedure vst_alignment (handle, horin, vertin : Integer; 
VAR horout, vertout : Integer) ; 


Set horizontal and vertical text alignment. 


handle : device 
horin : horizontal alignment : 


0 : left aligned 
1 : centered 
2: right aligned 


vertin : vertical alignment 


0 : base line 

1 : half line 

2: ascent line 

3: bottom line 

4 : descent line 

> ¢ ‘too line 
horout : the value used by the VDI 
vertout : the value used by the VDI 


See also : v_gtext, v_justified, vst_height, vst point, 
vst_rotation, vst_color, vst_effects 


Procedure vsf_interior(handle, style : Integer) ; 
Set fill interior style. The available styles are: 


style HighSpeed CONST surface 


0 HOLLOW not filled 

1 SOLID solid fill with fill color 
2 PATTERN dotted fill 

3 HATCH cross-hatch fill 

4 UDFILLSTYLE user defined fill style 


handle : device 
EX. 3 vsf_interior(VDI_handle, PATTERN) ; 


see also : v_fillarea, v_contourfill, ve_xectl, vsf_style, 
vsf_color, vsf_perimeter, vsf_updat 
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Procedure vsf_style (handle, styleindex : Integer) ; 


Set fill style index. This allows the selection of one of either 24 
bit patterns or 12 cross-hatch patterns. Before calling this 
procedure, it must be selected whether the styleindex concerns a 
bit pattern or a cross-hatch pattern by calling vsf_interior. 

handle : device 
styleindex : new style 


EXe. ‘S 
vsf interior (VDI_handle, HATCH); { cross-hatch } 
vsf style (VDI handle, 3); { cross-hatch style 3 } 


| vsf interior (VDI_handle, PATTERN); { bit pattern 


{ a call to a fill procedure at this point would result in } 
{ a bit pattern code 3 to be drawn } 


See also : v_fillarea, v_contourfill, vr_recfl, vsf_color, 
vsf perimeter, vsf_updat, vsf_ interior 

Procedure vsf_color (handle, colorindex : Integer); 

Set: F111. color. 


handle : device 
colorindex : new fill color 


Ex. : vsf color (VDI_handle, Magenta); 


See also : v fillarea, v_contourfill, vr_recfl, vsf_style, 
vsf perimeter, vsf_updat, vsf_ interior 


Procedure vsf_perimeter (handle, pervis : Integer) ; 
Set fill frame on/off. 


handle : device 
pervis : fill frame flag : 0 = off; 1 =n (default) 


Ex. : vsf perimeter(VDI_handle, 0); { turn frame off } 


See also : v_fillarea, v_contourfill, vr_recfl, vsf_style, 
vsf_ color, vsf_updat, vsf_ interior 
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Procedure vsf_udpat (handle : Integer; VAR pfillpat; 
planes 


: Integer) ; 


Set user defined fill pattern. 


handle : device 


pfillpat : memory block containing the fill pattern 
planes : number of colors involved 


See also : v_fillarea, v_contourfill, vr_recfl, vsf_style, 
vsf_color, vsf_perimeter, vsf interior 


Raster operations 


All but one of the raster procedures require MFDBs (Memory Form Definition Blocks) 
as parameters, so before looking at the procedures, let’s recall the MFDB layout : 


TYPE 
MEFDB = RECORD 
mpotr : Pointer; 
formwidth : Integer; 


formheight : Integer; 
widthword : Integer; 
formatflag : Integer; 


memplanes : Integer; 

resl ; Integer; 

res2 : Integer; 

res3 : Integer 
END; 


ee 


upper left corner of raster 

raster width in pixels 

raster height in pixels 

raster width DIV 16 + 1 = word size 
0 = device specific; 1 = standard 
raster planes 

reserved 


SS 


Note that rasters must begin on a word boundary and be a multiple of 16 bits. 
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Procedure vro_cpyfm(handle, wrmode : Integer; 


Copy raster, 


pxyarray : Array 8; 
PSICMEDB, 
pdesMFDB : MEDB) ; 


opaque. wrmode defines the logical operations that 


are performed on the raster when stored. HighSpeed Pascal defines 
some constants concerning the raster operations : 


value 


HighSpeed CONST 


operation performed 
s=source; d=destination 


0 ALL WHITE 0 
d. S AND D s AND d 
2 S_AND_NOTD s AND NOT d 
a S ONLY Ss 
a NOTS AND D (NOT s) AND d 
5 D ONLY d 
6 S XOR_D s XOR d 
7 S OR_D s OR d 
8 NOT _SORD NOT (s OR qd) 
9 NOT _SXORD NOT (s XOR qd) 
10 D_ INVERT NOT a 
Ld NOT D NOT a 
12 S_OR_NOTD s OR (NOT d) 
is NOTS OR _D (NOT s) OR d 
14 NOT_SANDD NOT (s AND Q) 
io ALL BLACK i 
handle : device 
wrmode : writing mode (see above) 
pxyarray : [0]..[3] : source corner coordinates 


(4]..[7] : destination corner coordinates 
The coordinates are given in terms of two diagonally 
opposite corners. 

psrcMFDB : source 

pdesMFDB : destination 


See also : vrt_cpyfm, vr_trnfim, v_get_pixel 
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Procedure vrt_cpyfm(handle, wmmode : Integer; 


pxyarray : Array 8; 
PSICMFDB, 

pdesMFDB : MFDB; 
color index : Array 2); 


Copy raster, transparent. 


handle : device 
wrmode : writing mode : MD TRANS, MD REPLACE, MD XOR, 
MD ERASE 
pxyarray : [0]..[3] : source corner coordinates 
(4]..{7] : destination corner coordinates 
The coordinates are given in terms of two diagonal- 
ly opposite corners. 
psrcMFDB s source 
pdesMFDB : destination 
color_index : [0] = color of set pixels 
[1] = color of clear pixels 


See also : vro_cpyfm, vr_trnfm, v_get pixel 


Procedure vr_trnfm(handle : Integer; 

PSICMEDB, 

pdesMFDB : MEDB); 
Transform form from standard format to device specific. 
handle : device 
PSrcMFDB : source Memory Form Definition Block 
pdesMFDB : destination Memory Form Definition Block 
See also : vro cpyfm, vrt_cpyfm, v get pixel 
Procedure v_get pixel (handle, x, y : Integer; 

VAR pel, index : Integer) ; 


Determine if a pixel is set or clear. v_get pixel can only be used 
in device~-specific format. 


handle : device 


o. : Pixel to get 
pel : pixel set = 1 or clear = 0 
index : pixel’s color index 


See also : vro_cpyfm, vrt_cpyfm, vr_trnfm 
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Input Functions 
Most of the input procedures work in one of two ways : 


mode  HighSpeed CONST operation 


ay REQUEST waits for an event to occur 
2 SAMPLE determines current state and returns 
immediately 


Procedure vsin_ mode (handle, devtype, mode : Integer) ; 
Set input mode. 


handle : device 
devtype : input device type ; 


0 : position input 
1: value input 

2 : selection input 
3 : string input 


mode : Input mode 
0 : REQUEST 
1 : SAMPLE 


See also : vqin_mode 


Procedure vrq locator(handle, x,y +: Integer ; 
VAR xout, yout : Integer; 
VAR tem ; Integer); 


Input locator, request mode. 


handle : device 

te: ¥ : graphic cursor start position 

xout, yout : graphic cursor end position 

term : the keyboard key/mouse button that ended the input 


#32 = left mouse button; #33 = right button 


See also : vsm_locator 
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Function vsm locator (handle, x, y : Integer; 
VAR xout, yout, term : Integer) : Integer; 
Input locator, sample mode. 


handle : device 

x, ¥ : graphic cursor start position 

xout,. ‘yout : graphic cursor end position 

term ’ : the keyboard key/mouse button that ended the input 


#32 = left mouse button; #33 = right button 
return value : status value : 


value key press? position change? 
0 no no (note the 
a! no yes binary appea- 
2 yes no rance) 
3 yes yes 


see also : vrq locato 


Procedure vrq_valuator(handle, valin : Integer; 
VAR valout : Integer; 
VAR term =: Integer); 

Input valuator, request mode. 

handle : device 

valin : start value 

valout : end value 

term : key terminating operation 


see also : vsm valuator 


Procedure vsm_valuator(handle, valin : Integer; 


VAR valout : Integer; 
VAR term ; Integer; 
VAR status : Integer) ; 


Input valuator, sample mode. 
handle : device 


valin : start value 
valout : end value 
term : key terminating operation 


status : value interpretation 


0 no actions 
i value changed 
2 key pressed 


See also : vrq_valuator 
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Procedure vrq_choice (handle, ch in : Integer; 
VAR ch out ; Integer) ; 


Input choice, request mode. 
handle : device 
chin : initial value 


ch_ out : pressed key 


See also : vsm_choice 


Function vsm_choice(handle : Integer; VAR choice : Integer) 
: Integer; 


Input choice, sample mode. 


handle : device 
choice : pressed key 
Return value : status : 0 = no key; 1 = key pressed 


See also : vrq_choice 


Procedure vrq_ string (handle, maxlen, echomode : Integer; 
echo xy : Array 2; 
VAR instring : String80) ; 


Input string, request mode. Waits for <Return> key before termi- 
nating. 


handle : device 

maxlen : maximum string length 
echomode : 0 = no echo; 1 = echo 
echo xy : echo area (x,y) 


instring : the string input 


See also : vsm_string 
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Function vsm_string(handle, maxlen, 


echamode : Integer; 
echo xy >: Array 2; 
VAR instring : String80) : Integer; 


Input string, sample mode. 


handle : device 

maxlen 2: maximum string length 

echomode : O = no echo; 1 = echo 

echo xy : echo area (x,y) 

instring : the string input 

Return value : 0 = illegal key pressed; otherwise length 


of string. 
see aleo 2 vrq string 
Procedure vsc_form(handle : Integer; pcurform : Array 37); 
Set mouse form. 


handle : device 
pocurform. = cursor form x 


O}], [ Ly § R6t SBBE (Ge, ¥) 


2] : must be 1 (!) 
4] : form color index 


[ 

[ 

[ 3] : mask color index 

[ 

[ 5]..[20] : mask raster lines (16) 
[21]..{[36] : form raster lines (16) 


See also : graf mouse 


Procedure vex timv (handle : Integer; 
timaddr : Pointer; 
VAR otimaddr : Pointer; 
VAR timconv : Integer) ; 


Exchange timer interrupt vector. Directs the system timer inter- 
rupt to user routine. 


handle : device 

timaddr : address of new timer routine 
otimaddr : address of old timer routine 
timconv : interrupt interval (milliseconds) 


See also : vex_butv, vex _motv, vex curv 
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Procedure v_show_c (handle, reset : Integer) ; 

Show graphic cursor (mouse). Each time v_show_c is called, an 
internal counter is updated, so it is necessary to call v_ hide c 
exactly as many times as v_show_c to hide the cursor. The internal 
counter can, however, be cleared if reset is set to 0. In normal 
operation, reset should be 1. 


handle : device 
reset : reset flag : 0 = clear counter; 1 = maintain counter 


Ex. 

VAR i: Integer; 
FOR i := 1 TO 10 DO v_show c(VD1_ handle, 1); 
POR ¢ ee 17O 3 BO Vv! hide (VDI handle) ; 
{ at this point, the cursor is still on } 
v_hide_c(VDI_ handle) ; 


{ now it’s turned off } 


See also : v_hide_c, graf_mouse 


Procedure v_hide c (handle : Integer) ; 
Hide graphic cursor (mouse) . 
handle : device 


See also : v_show_c, graf_mouse 


Procedure vq mouse (handle : Integer; 
VAR pstatus, x, Y : Integer) ; 


Sample mouse button state and return graphic cursor’s coordinates. 
handle : device 


pstatus : mouse button state : 0 = not pressed; 1 = pressed 
x, ¥ : cursor coordinates 
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Procedure vex butv (handle : Integer; 
pusrcode : Pointer; 
VAR psavcode : Pointer) ; 


Exchange button change vector. This is one of the more “dirty” 
procedures, as it allows the programmer to specify, what his program 
should do, if the mouse button is pressed. 


handle : device 
pusrcode : address of the new routine to be installed 
psavcode : address of the old routine 


see also : vex_timv, vex_motv, vex curv 


Procedure vex motv (handle : Integer; 
pusrcode : Pointer; 
VAR psavcode : Pointer) ; 


Exchange mouse movement vector. As the above, this is also one of 
the “dirty” procedures. This time, the user can specify what shall 
happen, each time the mouse is moved, and the mouse coordinates passed 
on to the application can be changed as well. “Speed mouse” utilities 
are often made this way. 


handle : device 
pusrcode : address of new routine 
psavcode : address of old routine 


see also : vex timv, vex_butv, vex curv 


Procedure vex curv (handle : Integer; 
pusrcode : Pointer; 
VAR psavcode : Pointer) ; 


Exchange cursor change vector. In this case, the routine is called, 
when it is required to change the graphic cursor’s position on the 
screen. 


handle device 
pusrcode : address of new routine 
psavcode : address of old routine 


see also : vex tiny, vex_butv, vex m 
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Procedure vq key s(handle : Integer; VAR pstatus : Integer); 


Sample keyboard state snformation. Returns the status of four special 
keys on the keyboard, each represented by a single Wade 3 


bit value HighSpeed CONST key 


0 tL K RSHIFT right SHIFT key 
1 2  K LSHIFT left SHIFT key 
2 4 K CTRL CONTROL key 

3 8 K ALT ALTERNATE key 


Set bits indicate a pressed key. A returned value of, say, 3 would 
indicate that both shift keys are pressed. 


Ex. : Determine, if ALTERNATE key is pressed : 
VAR. 1. 2 Integer; 


vq key s(VDI_handle, i); 
IF BitTest (3, i) THEN WriteLn (‘ALTERNATE pressed’ ) 
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Inquire Functions 
These Functions are used for obtaining information on current device settings. 


Procedure vq_extended (handle, owflag : Integer; 
VAR workout > workout Array) ; 


Extended inquire. It’s used for determining either the Open 
Workstation parameters, or the extended parameters. The information 
about the device (handle) is returned in workout. 


handle : device 
owflag : inquiry type : 0 = Open Workstation parameters 


1 = extended parameters 
workout : returned values 
Function vq_color (handle, 
colorindex, 
setflag : Integer; 
VAR rgb : Array 3) : Integer; 


Inquire color representation. Returns the red, green and blue 
composition of colorindex in rgb in scaled values (0-1000). 


handle > device 
colorindex : color index 
setflag : 0 = passed color index; 1 = current color index. 
rgb : color composition : 
[0] = red 
[1] = green 
[2] = blue 


see also : vs color 


Procedure vql_ attributes (handle : Integer; 
VAR attrib : Array 6); 


Inquire PolyLine attributes. 


handle : device 
attrib : polyline attributes 


See also : v pline 
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Procedure vqn attributes (handle ; Integer; 
VAR attrib : Array_5); 


Inquire PolyMarker attributes. 


handle : device 
attrib : polymarker attributes 


See also : v_pmarker 


Procedure vqf attributes (handle : Integer; 
VAR attrib : Array_5); 


Inquire fill attributes. 


handle : device 
attrib : fill attributes 


See also : vr_recfl 


Procedure vqt_attributes (handle : Integer; 
VAR attrib : Array 10); 


Inquire graphic text attributes. 


handle : device 
attrib : text attributes 


See also : v_ gtext, v_justified 


Procedure vqt_ extent (handle : Integer; 
chstring : String80; 
VAR extent : Array 8); 


Inquire graphic text extent. It returns four coordinates, descri- 
bing an imaginary box surrounding chstring as it would appear with 
the current text attributes. 


handle : device 


chstring : input string 
extent - extent coordinates 


Gem 6.55 


Function vqt_width (handle : Integer; 
Character : Char; 
VAR cellwidth, 
leftdelta, 
rightdelta : Integer) : Integer; 
Inquire character cell width. 


handle : device 

Character : the character to measure 
cellwidth : width of character cell 
leftdelta : left offset 

rightdelta : right offset 


Function vqt_name(handle, elementnum : Integer ; 
VAR name : String80) : Integer; 
Inquire font name and index. 


handle : device 
elementnum : font index 
name > name and style of font 


Return value : current font index 
vqt_name is only useable with GDOS fonts. 


see also : vst_load fonts, vst_unload_ fonts, vst_ font, 
vqt_fontinfo 


Procedure vq _cellarray (handle : Integer; 
pxyarray : Array 4; 
rowlen, 
numrows : Integer; 
VAR elused, 

rowsused : Integer; 
status : Integer; 


VAR colarray : intout Array); 


Inquire cell array settings. 


handle : device 

pxyarray : lower left and upper right corners of rectangle 
rowlen : length of each row in color index array 
humrowS : number of rows 

elused > number of used elements 

rowsused : number of used rows 

status >: O = error; <> 0 = ok 


colarray : returned colors 


see also : v_ cellarray 
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Procedure vain mode(handle, dev_type : Integer; 
VAR inputmode : Integer) ; 


Inquire input mode. 
handle : device 
dev type : device type : Locator, valuator, choice or string 


inputmode : request or sample 


See also : vsin_mode 


Procedure vqt_fontinfo (handle : Integer; 
VAR minADE, 
maxADE : Integer; 


VAR distances : Array 4; 
VAR maxwidth : Integer; 
effects : Array 3); 


Inquire information about the current font. 


handle : device 

minADE - ASCII value of first writeable character in font 

maxADE - ASCII value of last writeable character in font 

distances : bottom, descent, half line, ascent, top values 

maxwidth : char width (left and right delta values are not 
included) 

effects : enlargement by italic etc., left and right delta 
values 


See also : vst load fonts, vst_unload_fonts, vst_font, vqt_name 
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Escapes 
Most of these procedures concern the “alpha” mode, i.e. a non- graphical environment 
much like the VT-52 terminal. It’s a leftover from the IBM PC environment, which 
doesn’t share text and graphics as easy as it’s done on the ST. A PC has two screen 
modes : A mode for graphics and a mode for text.Other procedures include printer 
handling facilities. 
Procedure vq_chcells (handle ; Integer; 

VAR rows, 

colums : Integer) ; 


Inquire addressable alpha character cells. Returns the number of 
addressable character cells in terms of rows and columns. 


handle : device 

rows : number of character rows available 

columns : number of character columns available 

Procedure v_exit cur(handle : Integer); 

Exit alpha mode and go into graphics mode (if there’sa difference). 


handle : device 


See also : v_enter cur 


Procedure v_enter cur(handle : Integer) ; 
Enter alpha mode (leave graphics mode) . 
handle : device 


See also : v_exit cur 


Procedure v_curup(handle : Integer); 
Move alpha cursor one line up. 
handle : device 


see also : v_curdown, v_curleft, V_curright, v_curhome 
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Procedure v_curdown (handle : Integer) ; 
Move alpha cursor one line down. 
handle : device 


See also : v_curup, v_curleft, v_curright, v_curhome 


Procedure v_curright (handle : Integer) ; 
Move alpha cursor one position to the right:. 
Aandle : device 


See also : v_curup, v_curdown, v_curleft, v_curhome 


Procedure v_curleft (handle : Integer) ; 
Move alpha cursor one position to the left. 
handle : device 


See also : v_curup, v_curdown, v_curright, v_curhome 


Procedure ‘v_curhome (handle : Integer) ; 
Home alpha cursor. 
handle : device 


{ 


See also : v_curup, v_curdown, v curlely; v_curright 


Procedure v_eeos(handle : Integer) ; 
Erase from alpha cursor to End Of Screen. 
handle : device 


See also : v_eeol 
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Procedure v_eeol (handle : Integer) ; 
Erase from alpha cursor to End Of Line. 
handle : device 


See also : v_eeos 


Procedure vs_curaddress (handle, row, column : Integer) ; 


Set alpha cursor address to row and column. If values are illegal ( r 
the cursor is set as close to the desired position as possible. 


handle : device 
row : row for cursor to be placed on 
column : column for cursor to be placed on 


See also : vq curaddress 


Procedure v_curtext (handle : Integer; chstring : String80); 
Write cursor addressable text. 


handle : device 
chstring : string to output (“C” format) 


Procedure v_rvon(handle : Integer) ; 
Set reverse video on. 
handle : device 


see also : v_rvoff 
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Procedure v_rvoff (handle : Integer); 
Turn reverse video off. 
handle : device 
See also : v_rvon 
Procedure vq_curaddress (handle : Integer; 
VAR row, 
column : Integer) ; 


Return current cursor position. 


handle : device 
row ;: Ccursor’s row position 
column : cursor’s column position 


See also : vs curaddress 


Function vq tabstatus (handle : Integer) : Integer; 
Return tablet status. A tablet could be a mouse, joystick etc. 


handle : device 
Return value : tablet status : 1 = available; 0 = not available 


Procedure v_hardcopy (handle : Integer) ; 
Make a hardcopy. 


handle : source device 


Procedure v_dspeur(handle, x, y : Integer) ; 


Set the graphic cursor at position (x,y) and show it. 
Note the difference between a graphic cursor and an alpha cursor. 


handle : device 
KY : Cursor coordinates 


see also : v_mmcur 
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Procedure v_mmcur(handle : Integer) ; 
Remove the last set graphic cursor. 
handle : device 


See also : v_dspcur 


Procedure v_form adv(handle : Integer) ; 
Write a form feed to a printer. 
handle : device 


See also : v_output window, v clear disp list, v_ bit image 


Procedure v_output window(handle : Integer; xyarray : Array 4); 


Write a part of the current output window to a printer. 


handle : device 
xyarray : two diagonally opposite corners representing the source 
window 


See also : v_form adv, v_clear disp list, v_ bit image 


Procedure v_clear disp list (handle : Integer) ; 
Clear a printer’s display list. 
handle : device 


See also : v_form adv, v_output_ window, v_ bit image 
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Procedure v_bit image (handle : Integer; 
filename : String80; 
aspect, 
scaling, 
num pts : Integer; 
xyarray : Array 4); 


Output bit image file to a printer. 


handle : device 
filename : input file to output (remember : append #0) 
aspcet : aspect ratio flag : 


0 = ignore aspect ratio 
1 = pixel aspect ratio 
2 = page aspect ratio 
scaling : scaling flag : 
0 = uniform scaling 
1 = seperate scaling 
xyarray : upper left corner and lower right 


See also : v_ form adv, v_output_window, v_clear_ disp list 


Function vs_palette (handle, palette : Integer) : Integer; 


Select IBM color palette. 


handle : device 

palette : selected palette : colors : 
0 red, green, yellow 
fi cyan, blue, magenta 


See also : vqp films, vaqp state, vsp state, vsp save, 
vsp message, vgqp error 


Procedure vqp films(handle : Integer; VAR filmnames : String125); 
Inquire palette film types (filmnames). 


handle 
filmnames 


device 
film types : Five sets of 25 characters 


See also : vs palette, vaqp_ state, vsp_state, vsp_save, 
vsp message, vap error 
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Procedure vqp_ state (handle 


; Integer; 

VAR port, 
filmnare, 
lightness, 
interlace, 
planes 

VAR indexes 


: Integer; 
: Array 16); 


Inquire palette state. 


handle : device 

port : communications port : 0 = first 

filmname : film index : 0..4 

lightness : lightness control : -3..3 

interlace : interlace flag : 0 = noninterlaced; 1 = interlaced 
planes : number of bitplanes 

indexes : coded information about color indexes 

See also : vs palette, vqp films, vsp state, vsp_save, 


vsp_message, vagp error 


Procedure vsp_state (handle, 


port, 
filmnun, 
lightness, 
interlace, 
planes 
indexes 


: Integer; 
: Array 16); 


Set palette state. 


handle : device 

port ; communications port : 0 = first 

filmname : film index : 0..4 

lightness : lightness control : -3..3 

interlace : interlace flag : 0 = noninterlaced; 1 = interlaced 
planes : number of bitplanes 

indexes : coded information about color indexes 


See also : vs palette, vgp films, vagp state, vsp_save, 
vsp_ message, vgp error 
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Procedure vsp_save (handle : Integer) ; 
Save palette driver state. 
handle : device 


See also : vs palette, vqp films, vap state, vsp state, 
vsp_message, vgp error 


Procedure vsp_message (handle : Integer) ; 
Suppress palette driver messages. 
handle : device 


see also : vs palette, vaqp films, vaqp state, vsp_state, vsp_ save, 
vqp error 


Function vgp error(handle : Integer) : Integer; 
Inquire palette error. 


handle : device 
Return value : Error code 


See also : vs_palette, vqp films, vaqp state, vsp_ state, vsp_ save, 
vsp_message 


Procedure v_meta_ extents (handle, 

minx, 

miny, 

Maxx, 

maxy : Integer) ; 
Update current metafile’s extent header. 
handle : device 
minx, 
miny, 
MAXX, 


maxy : minimum and maximum coordinates for bounding rectangle 


See also : v_write meta, vm filename 
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Procedure v_write meta (handle, 
numintin : Integer; 


int in : intin Array; 
numptsin : Integer; 
pts in : ptsin Array); 


Write a user-defined metafile item. 


handle : device 
numintin : number of elements in int_in 


int_in  : user defined information 
numptsin : number of elements in pts_in 
pts in : user defined information 


See also : v_meta_extents, vm_filename 


Procedure vm filename (handle : Integer; filename : String80) ; 
Change MetaFile’s name. 


handle : device 
filename : new file name (“C” format) 


See also : v_meta_extents, v_write meta 
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GemAES 


All GEM AES procedures and functions can be found in this section. 


GemAES, like GemDecl and GemVDI, contains a lot of constants, useable for im- 
proving program readability : 


{ EVENT manager definitions : } 


Flags for evnt multi : 


{ } 
MU KEYBD = 1; { Wait for keyboard message } 
MU BUTTON = 2; { Wait for mouse button message } 
MU M1 = 4; { Wait for mouse to enter/leave rectangle 1 } 
MU_M2 = 8; { Wait for mouse to enter/leave rectangle 2 } 
MU MESAG = 16; { Wait for a message to be ready in pipe } 
MU TIMER = 32; { Wait for timer message } 

{ Keyboard states : } 
K RSHIET = 1; { Right <Shift> key } 
K LSHIFT = 2; { Left <Shift> key } 
K CTRL = 4; { <Control> key } 
K ALT = 8; { <Alternate> key } 

{ Message types : } 
MN SELECTED = 10; { Menu item selected } 
WM REDRAW = 20; # { Window redraw requested } 
WM TOPPED = 21; { Window topped } 
WM CLOSED = 22; { Window close “button” was hit } 
WM FULLED = 23; { Window full “button” was hit } 
WM ARROWED = 24; { One of the slider bar arrows was hit } 
WM HSLID = 25> { Horizontal slider moved } 
WM VSLID = 26; { Vertical slider moved } 
WM SIZED = 27s { Window re-sized } 
WM MOVED = 28; { Window moved } 
WM NEWIOP = 29; { New window on top (activated) } 
AC OPEN = 40; { Accessory opened } 
AC CLOSE = 41; { Accessory closed } 


{ FORM Manager definitions } 


{ Form flags (for form dial) 


} 
FMD START = 0; { Start form (reserve memory) } 
FMD GROW = 1; { Draw “growing box” image } 
FMD SHRINK = 2; { Draw “shrinking box” image } 
FMD FINISH = 3; { Finish form (release memory) } 
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{ RESOURCE Manager Definitions } 


R_ TREE 


R OBJECT 
R_TEDINFO 
R_ICONBLK 
R BITBLK 

R STRING 
R_ IMAGEDATA 
R_OBSPEC 
R_TEPTEXT 
R TEPTMPLT 
R TEPVALID 
R IBPMASK 
R IBPDATA 
R IBPTEXT 
R BIPDATA 


R FRSTR 
R FRIMG 
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Resource data structure types :; 
An entire tree 

An object 

Text info block (TEDINFO) 

Icon data block (ICONBLK) 


Raster block (BITBLK) 
SUL 

Image 

Object specification 
Text 


Text template 

Text validation 

Icon display mask 

Icon bit map 

Icon text string 

Pointer to bit mapped graphics 
Address of pointer to free string 
Address of pointer to free image 
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{ WINDOW Manager Definitions } 


NAME 
CLOSER 
FULLER 
MOVER 
INFO 
SIZER 
UPARROW 
DNARROW 
VSLIDE 
LF'ARROW 
RTARROW 
HSLIDE 


WC BORDER 


WC_WORK 


WE KIND 
WE NAME 
WE INFO 


WF WORKXYWH 
WE CURRXYWH 
WE PREVXYWH 
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{ Window elements : 

{ Window name field 

{ Close fields 

{ Full field 

{ Movable 

{ Info line 

{ Size field 

{ UpArrow at vertical slider field 

{ DownArrow at vertical slider field 

{ Vertical slider field 

{ LeftArrow at horizontal slider field 
{ RightArrow at horizontal slider field 
{ Horizontal slider 
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{wind calc flags : } 
{Calculate border area from known work area} 
{Calculate work area from known border area} 


wind get flags 

Window kind 

Window name 

Window info 

Window work area x, y, w, h 
Current border area x, y, w, h 
Previous border area x, y, w, h 


Ce en ee 
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WF FULLXYWH = 7; { Max border area size x, y, w, h } 
WF HSLIDE = 8; { Horizontal slider position [0..1000] } 
WEF VSLIDE = 9; { Vertical slider position [0..1000] } 
WE TOP = 10; { Active window’s handle } 
WE FIRSTXYWH = 11; { First rectangle in rectangle list } 
WE NEXTXYWH = 12; { Next rectangle in rectangle list } 
WE_RESVD = 13; { Reserved! } 
WE NEWDESK = 14; { New desktop background object tree } 
WF HSLSIZE = 15; { Relative size of horizontal slider } 
WF VSLSIZE = 16; { Relative size of vertical slider } 
WE SCREEN = 17; 

{ wind_update flags } 
END UPDATE = O; { End update } 
BEG UPDATE = 1; { Begin update } 
END MCTRL = 2; { End mouse control } 
BEG MCTRL 3; { Begin mouse control } 


{ GRAPHICS Manager Definitions } 


Mouse Forms : 


{ } 
ARROW = O; { The normal arrow } 
TEXT CRSR = 1; { Text cursor } 
BUSYBEE = 2; { The busy bee } 
HOURGLASS = 2; { Same as BUSYBEE } 
POINT HAND = 3; { Pointing hand } 
FLAT HAND = 4; { Flat hand } 
THIN CROSS = 5; { Thin cross } 
THICK CROSS = 6; { Thick cross } 
OUTLN CROSS = 7;  { Outlined cross } 
USER DEF = 255; { User defined mouse pattern } 
M OFF = 256; { Turn mouse off } 
M ON = 257; { Turn mouse on } 

{ Graphic objects : } 
G BOX = 20; { A box } 
G TEXT = 219 { Text } 
G BOXTEXT = 22; { Text within a box } 
G IMAGE = 23; { Raster image } 
G USERDEF = 24; { User defined object (could be code!) } 
G IBOX = 25; { Invisible (transparent) box } 
G BUTTON = 26; { Centered text in a box } 
G BOXCHAR = 27; { Char within a box } 
G STRING = 28; { Text (menu item) } 
G FTEXT = 29; { Formatted text } 
G FBOXTEXT = 30; { Text within a box } 
G ICON = 31; { Icon } 
G TITLE = 327 { Text (menu title) } 
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Object flags : 


{ } 
NONE = O; { No flags } 
SELECTABLE = 1; { Object is selectable } 
DEFAULT = 2; { Object is default } 
F EXIT = 4; { Object causes exit } 
EDITABLE a 8; { Object is editable } 
RBUTTON = 16; { Object is radiobutton } 
LASTOB = 32; { Object is last in tree } 
TOUCHEXIT = 64; { Object touch causes exit } 
HIDETREE = 128; { Hide subordinate objects } 
INDIRECT = 256; { Object specification is a pointer } 
{ Object states : } 
NORMAL = O; { Normal state } 
SELECTED = 1; { Object is selected } 
CROSSED os 2; { Object is crossed } 
CHECKED = 4; { Object is checked } 
DISABLED = 8; { Object is disabled } 
OUTLINED = 16; { Object is outlined } 
SHADOWED = 32; { Object is shadowed } 
{ Object color numbers } 
White = 0; Black = 1; 
Red = 2; Green = 33 
Blue = 4; Cyan = 5; 
Yellow = 6; Magenta = gi 
LWhite a 8; LBlack = 97 
LRed = 10; LGreen = 11; 
LBlue = 12; LCyan = 13; 
LYellow = 14; LMagenta = 15; 
{ Editable text field definitions : } 
EDSTART = 0; { Reserved 
EDINIT = 1; { Mix text and template and turn cursor on} 
EDCHAR = 2; { Test and insert char if char allowed } 
EDEND Bi { Remove edit cursor } 
{ Editable text justification : } 
TE LEFT = 0; { Left justified } 
TE RIGHT = 1; { Right justified } 
TE CNTR = 2; { Centered } 
{ Scancodes for evnt_multi and evnt_keybd : } 
BackSpace = $0E08; Tab = SOF09; 
S Delete = S537F; S Insert = $5200; { S_ doesn’t kill } 
Shift_Ins = $5230; Return = S1COD; { string procedures } 
Enter = $720D; Undo = $6100; 
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Help 
Cur Up 


Cur Left 
Shift _Home 
Shift CD 
Shift CR 


Ctrl A 
Ctrl -¢ 
Ctrl E 
Ctrl G 
oc ol 
Corl 
Ctrl M 
Ctrl O 
Ctrl QO 
Ctrl S$ 
Ctrl U 
Ctrl W 
Cer © 
CUE. 2 
Ceri 3 
Corl © 
Cerl 7 
Ctrl. 9 
Alt A 

Alt C 

ALT & 

ALt G 

Alt I 

Alt K 

Alt M 

Alt O 

Alt Q 

Alt S 

Alt U 

Alt W 

Alt ¥ 

ALE: 

Alt 3 

Alt 5 

Alt 7 

Alt 9 

Fl 

F3 

F5 

F7 

F9 


Shift Fl 


= $6200; 


fot wt tou dou 


= $5400; 


$4800; 
S4B00; 
$4737; 
$5032; 
$4D36; 
S1E01; 
$2E03; 
$1205; 
$2207; 
$1709; 
$250B; 
$320D; 
S180F; 


SLOT 


S1F13; 
$1615; 
Sllii7s 
S2C19- 
$0211; 


$0413; 
= $0615; 
= $0817; 
$OA19; 
S1E00; 
$2E00; 
$1200; 
= $2200; 
$1700; 
= $2500; 
$3200; 
$1800; 
$1000; 
$1F00; 
$1600; 
$1100; 
S$2C00; 


$7800; 


S7A00; 
$7C00; 


S7E00; 


$8000; 


$3B00; 
$3D00; 
S3F00; 
$4100; 
$4300; 


Home 


Cur Down 
Cur Right 
Shift CU 
Shift CL 


Esc 
CErl B 
Ctrl D 
Ccxzl F 
Cexrl_H 
Cex, J 
Corl i 
Ctrl N 
Ceri F 
Ctrl R 
Corl 
Ctrl V 
Ctrl x 
Ctrl Z 
Ctrl 2 
Ctrl 4 
Ctrl 6 
Ctrl 8 
Ctrl 0 
Alt B 
ALE D 
Alt F 
Alt H 
Alt J 
ALG Lb 
Alt _N 
Alt P 
Alt_R 
Alt T 
alo V¥ 
Alt X 
Alt 2 
Alt 2 
Alt 4 
Alt 6 
Alt 8 
Alt _0 
F2 

F4 

F'6 

F8 

F10 


Shift F2 


= $4700; 
$5000; 
$4D00; 
$4838; 


l| 


S4B34; 


$011B; 
$3002; 
$2004; 
$2106; 
$2308; 
S240A; 
$260C; 


= $310E; 


i tl 


Il 


— 
— 


$1910; 


$1312: 
= $1414; 
S2F16; 
$2D18; 
$151A; 
$0300; 
$0514; 
SO71E; 
$0918; 
$0B10; 
= $3000; 
$2000; 
$2100; 
= $2300; 
$2400; 
$2600; 
$3100; 
$1900; 
$1300; 
$1400; 
S2F00; 
$2D00; 
$1500; 
$7900; 
S7B00; 
S7D00; 
S7FO0; 
$8100; 
$3C00; 
$3E00; 
$4000; 
$4200; 
$4400; 
$5500; 
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SHLEt_ FS = $5600; Shift F4 = $5700; 
Shift FS = $5800; Shift F6é = $5900; 
shift_F7 = $5A00; Shift F8 = $5B00; 
Shift F9 = $5C00; Shift F10 = $5D00; 
{ Language dependent scan codes : } 
Ctrl AE = $2804; Ctrl OE = $2714; 
Ctrl UE = $1A01; Alt_AE = $285D; 
Alt OF = $275B; Alt UE = $1A40; 


SH Alt AE = $287D; SH Alt OE = $277B; 
SH Alt UE = $1ASC; 


General Procedures 
Function GemError : Integer; 


GemError returns the value of intout[0] which GEM uses to report 
error messages most of the time. 

See also : GemDecl unit 

Application library 

The routines contained in the application library are capable of performing the fol- 
lowing tasks : 

- initialization and de-init. of application programs 

- simple pipe handling 

- recording of user actions 

Function appl_init : Integer; 


Initialize application and return application’s identification. 


See also : appl_read, appl write, appl find, appl tplay, 
appl _trecord, appl exit 


Procedure appl_read(ap rid, ap rlength : Integer; 
ap rpbuff : Pointer) ; 
Read a number of bytes from the event buffer. 
ap rpbuff : event buffer to read from 
ap rid ; receiving application’s id 
ap rlength : number of bytes to read 
See also : appl _ init, appl write, appl find, appl tplay, 
appl _trecord, appl exit 
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— 


Procedure appl _write(ap wid, ap wlength : Integer; 
ap wpbuff : Pointer) ; 


Write a number of bytes to the event buffer. 


ap_wpbuff : event buffer to store in 
ap wid : the receiving application’s id 
ap_wlength : number of bytes to read 


See also : appl_init, appl read, appl_find, appl tplay, 
appl_trecord, appl exit 


Function appl _find(ap fpname : Pointer) : Integer; 
Find the application id of another application in the system. 


ap fpname : points to a string (“C” format, null terminated) 
which have to be eight characters long; I.6. Tt 
might be necessary to fill up with Spaces. The 
string is the application’s file name 

Return value : application’s id or -1 if not found 


See also : appl init, appl_read, appl write, appl tplay, 
appl_trecord, appl exit 


Procedure appl_tplay(ap tpmem : Pointer; 
ap_tpnum, ap tpscale : Integer) ; 


The AES is capable of recording user actions and “replaying” them. 
The latter is exactly what appl _tplay does : Replays a piece of a 
recording. 


ap_tpmem : address of recorded data 
ap tpnum >: number of actions to play 
ap _tpscale : play back speed : Range 0..10000 


0 = slowest speed 
10000 = highest speed 
100 = normal speed 


See also : appl_init, appl read, appl write, appl find, 
appl_trecord, appl exit 
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Function appl _trecord(ap trmem =: Pointer; 
ap trcount : Integer) : Integer; 


Records user actions. 

ap trmem : address of recording buffer 

ap trcount : max number of recordings, the buffer can hold = 
buffer size DIV 6 (size of a recording) 


Return value : the number of actions recorded 


See also : appl _ init, appl read, appl _write, appl_find, 
apol tplay, appl exit 


Procedure appl exit; 


Exit application. Should be done before returning to the GEM 
Desktop. 


See also : appl init, appl_read, appl _ write, appl find, 
apol tplay, appl trecord 


Event library 

The AES views upon all AES-related actions made by the user and two internal action 
as events. The event library presents procedures designed to wait for one or more 
events. 


Before reading on, note the difference between a (keyboard) key and a (mouse) button! 


Function evnt_keybd : Integer; 
Wait for keypress and return key’s code. 


See also : evnt_button, evnt_mouse, evnt_mesag, evnt_timer, 
evnt_multi, evnt_dclick 
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Function evnt_button(ev_belicks, ev bmask, 


ev bstate : Integer; 
VAR ev bmx, ev hny, 
ev_bmb, ev bks : Integer) : Integer; 


Wait for one or more mouse buttons to be pressed. 
GEM allows a mouse to have as many as 16 buttons, where each bit in 
ev bmb represents a button. A set bit represents a pressed button. 


ev_bclicks : the number of mouse clicks GEM should look for, most 
often 1 or 2 = double click. 

ev_bmask : the keys allowed to generate the event. A set bit 
represents a “legal” key. 

ev_bstate : whether the in ev _bmask given keys should be : 


0 = released or 
1 = pressed 
in order to generate the event. 
ev_bmb : returned mouse button state 
ev_bks : keyboard state (CTRL, ALT, etc.) 
ev_ bmx, 
ev_bmy : mouse position at time of the “click” 


See also : evnt_keybd, evnt_mouse, evnt_mesag, evnt timer, 
evnt_multi, evnt_dclick 


Procedure evnt_mouse(ev_moflags, ev_mox, ev moy, 


ev_mowidth, ev moheight : Integer; 
VAR ev momx, ev momy, 
ev_momb, ev momks ; Integer) ; 


Wait for the mouse to enter or leave a rectangle. 


ev moflags : entry/exit flag : 0 = leave; 1 = enter rect. 
ev_mox, 

ev_moy : rectangle specification : upper left corner 
ev_mowidth, 

ev moheight : rectangle specification : height and width 
ev_momx, 

ev_momy : mouse position at event-time 

ev_momb mouse button state at time of event 
ev_momks keyboard state at time of event 


See also : evnt_keybd, evnt_button, evnt mesag, evnt timer, 
evnt_multi, evnt_dclick 
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Procedure evnt_mesag(ev mgpbuff : Pointer) ; 
Wait for a report to be present in the message pipe. 
ev mgpbuff : message pipe 


See also : evnt_keybd, evnt_button, evnt_ mouse, evnt timer, 
evnt_multi, evnt_dclick 


Procedure evnt timer(ev tlocount, ev thicount : Integer) ; 


Wait for a number of milliseconds given by the four-byte value formed 
by ev thicount and ev tlocount. 


ev_tlocount : low word 
ev_thicount : high word 


Total period time = ev_thicount * 2°16 + ev tlocount milliseconds 
EX. 


VAR time : LongInt; 
Write (‘How many milliseconds? ‘); ReadLn (time) ; 
evnt_timer (loword (time), hiword(time)) ; 
WriteLn (‘Here we are again...’); 


See also : evnt_keybd, evnt_button, evnt_mouse, evnt_mesag, 
evnt multi, evnt_dclick 


Function evnt multi 
(ev mflags, ev_mbclicks, 
ev mbmask, ev mbstate, 
ev ‘ mmi flags, ev mlx, 
ev mmly, ev 1 mmiwidth, 
ev - mmlheight , 
ev mm2flags, ev mm2x, 
ev mm2y, ev_mm2width, 


ev mm2height : Integer; 
ev mmgpbuff : Pointer; 
ev mtlocount, ev_mthicount : Integer; 


VAR ev_mmox, ev_mmoy, 
ev r mmobutton, ev mmokstate, 
ev , mkreturn, ev_mbreturn : Integer ) : Integer; 
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This is one of the more tough ones! Unlike the other event procedures, 
evnt_multi allows for any kind of events to occur. 
The allowed events are given via ev mflags : 


ev_mflags HighSpeed CONST event type 


iL MU _KEYBD wait for keyboard event 

2 MU_BUTTON wait for mouse button event 

4 MU Ml wait for mouse to enter/leave one of 
two rectangles 

8 MU M2 wait for mouse to enter/leave the 
second of the two rectangles 

16 MU MESAG wait for event message to be present 

32 MU TIMER wait for timer event 


It is suggested for the reader to scan through the other event- 
procedures, as they give additional information about the parameters 
Le @vnr sult. 


ev_mbclicks  : mouse button clicks required 


ev_momask : Mouse button mask 
ev_mbstate : Mouse button state 

ev mmlflags : rectangle 1 entry/exit flag 
ev mmx, 

ev _mmly, 


ev_mmlwidth, 
ev_mmlheight : rectangle 1 


The same layout applies to rectangle 2. 


ev mmgpbuff : message pipe address 
ev_mtlocount, 

ev_mthicount : time in milliseconds 

ev_mmox, 

ev_mmoy : Mouse (x,y) at event-time 
-v_mmobutton : mouse button pressed 
ev_mmokstate : keyboard state (SHIFT, CTRL etc.) 
ev_mkreturn : keyboard key pressed 
ev_mbreturn : number of mouse clicks 

Return value “occurred-events” flag 


evnt_multi is one of the vital functions ina “normal” GEM application 
using menus, windows, dialog boxes etc. as it allows the user to 
generate a multitude of events, which the application then can 
dispatch easily. 


See also : evnt _keybd, evnt button, evnt _mouse, evnt_mesag, 
evnt_ timer, evnt » BElIGK 
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Function evnt_dclick(ev dnew, ev dgtest : Integer) : Integer; 


Set double click speed. 


ev_dnew : new value or dummy 
ev_dgtest : set new speed or return current speed value? 
0 = return current (ev _dnew is dummy) 


3 


1 = set new 
Return value : current speed/set speed 


EX 


VAR 
currentspeed : Integer; 


currentspeed := evnt_dclick(0, 0); { return current speed } 


See also : evnt_keybd, evnt_button, evnt_mouse, evnt_mesag, 
evnt_ timer, evnt_multi 


Menu library 
This library presents procedures for menu handling, i.e. drawing, selecting, checking 
etc, 


Procedure menu_bar (me btree : Pointer; me_bshow : Integer) ; 


Display or erase a menu bar. Should always be called before 
appl exit. 


mé btree : menu tree 
me bshow : show/erase flag : 0 = erase; 1 = show 


See also : menu_icheck, menu_ienable, menu tnormal, menu_text, 
menu_register 
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Procedure menu_icheck(me ctree : Pointer; 
me _citem, me _ccheck : Integer) ; 


Check a menu item. 


me _ctree =: menu tree 

me citem : item to check 

me_ccheck : check flag : 0 
uf 


erase check mark 
set check mark 


See also : menu_bar, menu_ienable, menu_tnormal, menu_text, 
menu_register 


Procedure menu_ienable (me _ etree : Pointer; 
me eitem, me eenable : Integer) ; 


Enable a menu item. 


me etree : menu tree 

me eitem : item to enable 

me eenable : enable flag : 0 
ih 


II 


disable entry 
enable entry 


II 


See also : menu_bar, menu_icheck, menu_tnormal, menu text, 
menu_register 


Procedure menu _tnormal (me_ntree : 
me ntitle, me nnormal : Integer); 


Normalize a menu title-bar. 


me ntree > menu tree 
me ntitle : title index 
me nnormal : normalize flag : 0 = reverse video 


1 = normal video 


menu_tnormal is used after the application has completed doing an 
operation requested via a menu. In that case, the menu bar is still 
drawn in reverse video, so it has to be reset to normal video again. 
It can also be used to indicate to the user, that he selected a menu 
item from, say, the “Compile” menu when he pressed the “Alternate 
+ C” key, as in the HighSpeed Pascal shell. 


See also : menu bar, menu_icheck, menu _ienable, menu text, 
menu_register 
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Procedure menu _text(me ttree : Pointer; 
me titem : Integer; 
me ttext : Pointer) ; 


Change the text of amenu item (me titem) in a tree (me _ttree) . Note 
that the string must be of same length as the old one, and that itmust 
be globally declared (very important!). 
me Terese < menu tree 
me titem : string index 
me ttext : address of new text (“C” format) 
See also : menu_bar, menu_icheck, menu_ienable, menu_tnormal, 
menu_register 
Function menu_register (me_raccapid : Integer; 
me rpstring : Pointer) : Integer; 


Register application as a desk accessory. 


me raccapid : application id (from appl init) 
me rpstring : address of the “Desk” menu entry title string 


menu register returns the accessory number [0..5] or -1 of no more 
accessory slots are available. 


See also : menu_bar, menu_icheck, menu_ienable, menu_tnormal, 


menu_text 


Object library. 
This library presents routines for handling objects. 


Procedure objc_add(ob atree : Pointer; 
ob _aparent, ob achild : Integer) ; 


Add a new object to an object tree. 

ob atree : the object tree 

ob aparent : parent object’s index 

ob achild : child object’s index 

See also : objc delete, objc draw, objc find, objc offset, 


objc order, objc edit, objc change 
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Procedure objc_delete(ob diltree : Pointer; 
ob dlobject : Integer) ; 


Delete an object from an object tree. 


ob ditree : object tree 
ob _dlobject : index of object to delete 


see also : objc add, objc draw, objc_ find, objc offset, 
objc_order, objc edit, objc ; change 


Procedure objc_draw(ob dtree : Pointer; 
ob _drstartob, ob drdepth, 
ob ¢ ) drxclip, ob dryclip, 
ob drwclip, ob drhclip : Integer) ; 


Draw part or whole of a tree, possibly clipped. 


ob dtree : object tree 
ob_drstartob : index of starting object 
ob _drdepth : levels to be drawn 

ob drxclip : Clipping rectangle x 

ob dryclip By ay 

ob drwclip : width 


ob drhclip : height 


See also : objc_add, objc delete, objc_find, objc offset, 
objc_order, objc edit, objc | chang 


Function oebjc_find(ob ftree :; Pointer; 
ob : ) fstartob, ob fdepth, 
ob fmx, ob fmy : Integer) : Integer; 


Determine, if an element of a given object tree is at the given 
coordinate. Used for mouse selection. 


ob ftree : Object tree to check 

ob _fstartob : object index from where to start search 

ob _fdepth : levels to search 

ob_fmx, 

ob_fmy : coordinate to check 

Return value : -1 = no object found, otherwise object index 


See also : objc_add, objc delete, objc_draw, objc_ change 
objc_ offset, objc order, objc edit 
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Procedure objc offset (ob oftree : Pointer; 
ob _ofobject : Integer; 
VAR ob ofxoff, 
ob ofyoff : Integer); 


Object’s offset relative to screen origin. 


ob oftree : object tree ’ 
ob ofobject : object index 
Ob OfFxOfE ££ object x relative to screen 
ob ofyoff : object y relative to screen 


See also : objc add, objc delete, objc draw, objc_ find, 
objc order, objc edit, objc_ change 


Procedure objc_order (ob ortree : Pointer; 
ob orobject, 
ob ornewpos : Integer) ; 


Move a child object to a new position within its parent’s child 
Lists 


ob ortree : object tree 
ob orobject : index of object to move 
ob ornewpos : new position : 


=| = top 
0 = bottom 
n= n from the bottom 


See also : objc_add, objc delete, objc_draw, objc find, 
objc offset, objc edit, objc_ change 
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Procedure objec edit (ob edtree : Pointer; 


ob edobject : Integer; 
ob _edchar ; Char; 

ob edidx, ob edkind : Integer; 
VAR ob ednewidx : Integer) ; 


Let the user edit text in objects of types G TEXT and G BOXTEXT. 


ob edtree : object tree 

ob edobject : editable object’s index 

ob edchar : char typed by the user 

ob edidx : next char position in raw text string 
ob edkind : how objc edit should behave :; 


value HighSpeed CONST operation 


0 EDSTART reserved! 

1 EDINIT TEDINFO fields te ptext and 
te ptmplt are combined into 
a formatted string and the 
text cursor is turned on 


2 EDCHAR test if char is contained 
in te _ptext and display 
string 

3 EDEND turn off text cursor 


ob _ednewidx : index of next char pos in raw string when objc edit 
is finished 


See also : objc_add, objc delete, objc draw, objc find, 
objc_ offset, objc_order, objc_ change 
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Procedure objc_change(ob_ctree : Pointer; 
ab _cobject, ob cresvd, 
ab_cxclip, ob _cyclip, 
ab _cwelip, ob_chclip, 
ob _cnewstate, ob credraw : Integer) ; 


Change an object’s state. 


ob_ctree : object tree 

ob cobject : index of object to change 

ob _cresvd ; £SeServed: Sec to zero (0) 

ob _cxclip : Clip rectangle coordinates : x 


ob cyclip = ¥ 
ob cwclip : width 


ob _chclip : height 
ob _cnewstate : the new state value 
ob _credraw : redraw flag : 0 = no redraw; 1 = redraw object 


See also : objc_add, cbjc delete, objc draw, objc find, 
objc_ offset, objc_order, objc_ edit 


Form library 


Function form _do(fo dotree : Pointer; 
fo dostartob : Integer) : Integer; 


Let the AES handle user input via a dialog box. 
fo _dotree : dialog box object tree 
fo_dostartob : starting text input field or 0 


Return value : index of object that terminated input 
(e.g. OK button) 


See also : form_dial, form_alert, form error, form center 
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Procedure form _dial(fo diflag, fo dilx, 
fo dily, fo dilw, 
fo dilh, fo dibigx, 
fo dibigy, fo dibiqw, 
fo dibigh : Integer) ; 


Dialog form handling. Contains four different functions : 
fo diflag : operation to perform : 


value HighSpeed CONST operation 


QO FMD START reserve memory for dialog box 
1 FMD GROW draw growing box outline 
2 FMD SHRINK draw shrinking box outline 
3 FMD FINISH release dialog box memory 
fo dilx, 
fo dily : growing/shrinking rectangle’s smallest size (x,y) 
fo dilw : width 
fo dilh : height 
fo dibigx, 


fo dibigy : growing/shrinking rectangle’s largest size (x,y) 
fo dibigw : width 
fo dibigh : height 


see also : form_do, form_alert, form error, form center 
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Function form_alert (fo adefbttn : Integer; 
fo aastring : Pointer) : Integer; 


Display an alert box. 


fo_adefbttn : The default key number; i.e. the one with the thick 
border around. If 0 then there is no default key. 
fo aastring : The address of the string to be output. Note that it 
must be presented as “C” format, that is, no length element, and it 
must end with #00. 
The returned value is the index of the key that terminated the dialog 
box: 
The string format is as follows 
‘{a] [ob] [c]’ where : 
a= 0..3 = the icon to be shown; 
= no icon; 
= ‘!” icon; 
= ‘?’ icon; 

3 = ‘STOP’ icon. 
b = the string; 
c = the keys. 


DOES Gf 


The string can contain more lines; they are sperated by ‘|’, and 
so are the different keys, as shown in the examples below : 


Bitz 


VARs: String; 
key : Integer; 


s := ‘({0)[This is a one-line alert][ Ok ]’ + #00; 
key := form alert(1, addr(s[1])); 
{ Note how the string-length element (s[0]) is skipped in the 
addr() expression } 
Ss := ‘[1][ This is a multi-line alert | with an icon |’ + 
‘ and 3 keys][ Great! | Oh yeah? | So what?! ]’ + #00; 
key := form alert(2, addr(s[1])); 


See also : form_do, form dial, form_error, form center 


Function form_error(fo enum : Integer) : Integer; 
Display an alert box with a TOS error code (fo enum) in it. 


See also : form_do, form_dial, form alert, form center 
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Procedure form center (fo ctree : Pointer; 
VAR fo_cx, fo cy, 
fo cw, fo ch : Integer); 


Centre object tree’s representation on screen. 


fo ctree : the object tree 
fo cx, fo_cy : upper left corner ' 
fo cw, fo_ch : width and height 


See also : form_do, form dial, form alert, form error 


Graphics library 


Procedure graf _rubbox(gr rx, gr_ry, 
gxr_xrminwidth, gr _mminheight : Integer; 
VAR gr rlastwidth, 
gr _rlastheight : Integer) ; 


Draw a “rubber box”, i.e. upper left corner is set (used on the 
GEM desktop to select more than one file). graf_rubbox must be called 
with the mouse button pressed, as the procedure is ended 

when the user releases the button. 


gr rx : upper left corner x of rectangle 
gr ry : upper left corner y of rectangle 
gr rminwidth : smallest allowed width of rectangle 


gr rminheight : smallest allowed height of rectangle 
gr rlastwidth : final width of rectangle 
gr rlastheight : final height of rectangle 


Bs S$ 
CONST 
minW = 10; 
minH = 20; 
VAR 
mousex, mouseY, mouseButton : Integer; { mouse info } 
boxW, boxH : Integer; { rubber box w, h } 
{ wait for user to press button : } 
REPEAT 
vq _ mouse (VDI handle, mouseButton, mouseX, mouseY) 
UNTIL mouseButton = 1; { 1 = button pressed } 


{ drag the box : } 
graf rubbox(mouseX, mouseY, minW, minH, boxW, boxH); 


See also : graf dragbox, graf_movebox, graf_growbox, 


graf shrinkbox, graf watchbox, graf _slidebox, 
graf handle, graf mouse, graf mkstate 
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Procedure graf dragbox(gr_dwidth, gr dheight, 
gr_dstx, gr_dsty, 
gr_dbndx, gr_dbndy, 
gx_dbndw, gr_dbndh : Integer; 
VAR gr_dfinx, gr dfiny : Integer) ; 


Drag (move) a rectangle within another rectangle. 
gr dwidth : movable rectangle’s width 


gr_dheight : height 
gr _dstx : starting x position 


gr_dsty : Starting y position 

gr_dobndx  : surrounding rectangle’s x 

gr_dbndy ny 

gr dondw : width 

gr_dobndh_~: height 

gr dfinx : movable rectangle’s finish x position 
gr dfiny : finish y position 


See also : graf_rubbox, graf_movebox, graf_growbox, 
graf _shrinkbox, graf _watchbox, graf_slidebox, 
graf_handle, graf_mouse, graf mkstate 


Procedure graf movebox(gxr_ mwidth, gr mheight, 
gxr_msrcex, gr _msrcey, 
gr _mdestx, gr mdesty : Integer) ; 


Move box. The AES will all by it self make a rectangle of constant 
size move from one screen area to the other — fastly! 


gr mwidth : rectangle’s width 
gr _ mheight : height 


gr msrcex ;: start x (upper left corner) 
gr_msrcey : start y 
gr mdestx : end x (upper left corner) 


gr_mdesty : end y 
EX. 
graf movebox(10,10, 100,120, 600,380) ; 


moves a rectangle of size 10 * 10 fromposition (100,120) to position 
(600,380) . 


See also : graf _rubbox, graf _dragbox, graf_growbox, 


graf_shrinkbox, graf_watchbox, graf_slidebox, 
graf handle, graf_mouse, graf _mkstate 
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Procedure graf _growbox(gr_gstx, gr_gsty, 
gxr_gstwidth, gr gstheight, 
gx_gfinx, gr_gfiny, 
gr_gfinwidth, gr_gfinheight : Integer) ; 


Draw a “growing box” outline. Its appearance should be quite 
familiar, as this procedure is used in the GEM desktop when opening 
a window. 


gr _gstx, 

gxr_gsty : upper left corner of smallest box 
gr gstwidth  : width of smallest box 

gr gstheight : height of smallest box 

gr gfinx, 

jr_gfiny : upper left corner of largest box 


gr gfinwidth : width of largest box 
gr_gfinheight : height of largest box 


Ex. «* 


graf growbox (310,190,20,20, 0,0,640,400); { grow... } 
graf shrinkbox (310,190,20,20, 0,0,640,400); { ...and shrink } 


See also : graf rubbox, graf_dragbox, graf_movebox, 
graf shrinkbox, graf _watchbox, graf_slidebox, 
graf handle, graf mouse, graf_mkstate 


Procedure graf _shrinkbox(gr_sstx, gr_ssty, 
gx_sstwidth, gr_sstheight, 
gr _sfinx, gr_sfiny, 
gx_sfinwidth, gr_sfinheight : Integer); 


Draw shrinking box outline. This is the reverse to graf _growbox. 


gr sstx, 

gr _ssty : upper left corner coordinates of large box 
gr _sstwidth : width 

gr_sstheight : height 

gr _sfinx, 

gxr_sfiny : upper left corner coordinates of small box 


gr_sfinwidth : width 
gr_sfinheight : height 


See also : graf rubbox, graf _dragbox, graf_movebox, graf_growbox, 


graf watchbox, graf_slidebox, graf_handle, graf_mouse, 
graf mkstate 
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Function graf _watchbox(gr wptree : Pointer; 
gr_wobject, gr _winstate, 
gx _woutstate : Integer) : Integer; 


Watch if the mouse enters or leaves a rectangle (representing an 
object) and change that object’s state accordingly, if the mouse 
button is released. 


gr _wptree ; parent tree 
gr wobject : object’s index 
gr_winstate : object’s state at entering the rectangle 


gr_woutstate : object’s state when leaving the rectangle 
Return value : was the mouse inside the rectangle when the button 
was released? 0 = no; 1 = yes 


See also :graf_rubbox, graf_dragbox, graf_movebox, graf_growbox, 
graf_shrinkbox, graf_slidebox, graf_handle, 
graf mouse, graf _mkstate 


Function graf slidebox(gr_slptree : Pointer; 
gr_slparent, gr slob-ject, 
gr_slvh : Integer) : Integer; 


Slide a rectangle within another rectangle, both contained in a 
resource tree, with the mouse. Call with pressed mouse button only. 


gr slptree > parent tree 

gr slparent : parent index 

gx _slobject : movable object’s index 
gr_slvh : direction flag : 


0 = horizontal movement only 

1 = vertical movement only 
Return value : movable rectangle’s position relative to parent 
object’s border 


see also : graf_rubbox, graf _dragbox, graf_movebox, graf growbox, 


graf_shrinkbox, graf _watchbox, graf handle, 
graf mouse, graf mkstate 
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Function graf handle(VAR gr _hwchar, gxr_hhchar, 
gx_hwbox, gr hhbox : Integer) : Integer; 


Return graphics handle (VDI handle). graf handle is used before a 
v_opnvwk (Open Virtual Workstation). The returned handle is the one 
used by all graphics operations. 
‘ gr hhchar : height of a character 
gr_hwchar : width of a character 


gr_hhbox height of a character box 
gr_hwbox width of a character box 
EX. 
\ JAR 
VDI_handle >: Integer; 
chW, chH, boxwW, boxH =: Integer; 
workIn : intin_ Array; 
workOut : workout Array; 


VDI_handle := graf handle(chW, chH, boxW, boxH); 
v_opnvwk (workin, VDI_ handle, workOut); 


v_gtext (VDI handle, 100,200, ‘HighSpeed is super!’ + #00); 
See also : graf rubbox, graf dragbox, graf_movebox, graf_growbox, 


graf shrinkbox, graf watchbox, graf_slidebox, 
graf mouse, graf _mkstate 
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Procedure graf mouse(gr monumber : Integer; 


Change mouse shape. 


gr monumber : mouse shape index : 
value HighSpeed CONST 
0 ARROW 
1 TEXT CRSR 
2 BUSY BEE 
2 HOURGLASS 
3 POINT HAND 
4 FLAT HAND 
5 THIN CROSS 
6 THICK CROSS 
7  OUTLN CROSS 
255 USER DEF 
256 M OFF 
257 M ON 
gr_mofaddr 
EX. 


gx_mofaddr 


graf mouse (BUSYBEE, NIL); 
graf mouse(M OFF, NIL); 
graf mouse(M ON, NIL); 
graf_mouse (ARROW, NIL); 


: Pointer) ; 


shape 

arrow 

text cursor 

the busy bee 

also the busy bee 
pointing hand 
flat hand 

thin cross 

thick cross 
outlined cross 
user defined shape 
turn mouse off 
turn mouse on 


: mouse form address (or NIL for standard shape) 


set bee shape 
turn mouse off 


arrow shape 


{ } 
{ } 
{ turn it back on } 
{ } 
{ } 


graf _mouse(USER_DEF, addr (MyMouse) ) ; set user mouse 

See also : graf rubbox, graf dragbox, graf movebox, graf_growbox, 
graf shrinkbox, graf _watchbox, graf _slidebox, 
graf handle, graf mkstate, vsc form 


Procedure graf mkstate (VAR gr mkmx, gr _mkny, 

gx_mkmstate, gr mkkstate : Integer) ; 
Return current mouse position, mouse button status and keyboard 
status. 


gr_mkmx : mouse xX 

gr_mkmy : mouse y 

gr mkmstate : mouse button status 

gr mkkstate : keyboard status : SHIFT left, right, CTRL and ALT 


See also : graf_rubbox, graf_dragbox, graf_movebox, graf_growbox, 
graf shrinkbox, graf_watchbox, graf_slidebox, 
graf handle, graf mouse 
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Scrap library 

These two procedures allow the use of scrap directories. 
Procedure scrp read(sc rpbuff : Pointer); 
Read scrap directory from clipboard. 


s 


sc rpbuff : address of buffer into which the scrap directory is 
read 


See also : scrp write 


Procedure scrp write(sc wpbuff : Pointer) ; 
Write scrap directory to clipboard. 
sc wobuff : address of buffer holding the scrap directory 


See also : scrp_ read 


File selector library 


Procedure fsel_input(fs_ iinpath, fs iinsel : Pointer; 


VAR fs_iexbutton : Integer) ; 
File selector input. 
fs iinpath : default search path/chosen path : #00 terminated 
fs iinsel : default file name/chosen name : #00 terminated 


fs iexbutton : OK or CANCEL key code : 


0 
i, 


CANCEL 
OK 


After using fsel_input, you can’t just add the two strings, 
fs ijinpath and fs iinsel, to obtain a full file name, as two 
obstructions lay in the way : The #00 string terminators, and the 
search pattern at the end of the path (e.g. “*.PAS”), so they have 
to be stripped off first : 
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VAR 


path : String; 
name : StCring(13)> { filename.ext + #00 } 
code : Integer; 
fullname : String; 
1 : Integer; 


path := ‘D: \PASCAL\HI_SPEED\SOURCE\*.PAS’ + #00; 
name := ‘MYPROG.PAS’ + #00; 
fsel input (addr (path[1]), addr(name[1]), code); 


IF code = 1 THEN BEGIN { OK button } 
path[OJ] := #255; { fool Pos into believing, we’re } 
{ dealing with a big string } 
path[0] := CHR(Pos(#00, path)-1); { set length } 
WHILE path[ Length(path) ] <> ‘\’ Do 
Delete (path, Length(path), 1); { remove search } 
{ pattern } 
{ now, path contains the “pure” path } 
name[0] := #255; 
name [QO] := CHR(Pos (#00, name)-1) ; { set length } 
fullname := path + name; 
{ full file specification is now present in fullname } 
END 


ELSE { CANCEL button } ; 

A few “tricks” are used above : First of all, the length of the path 
string is set to 255 (path[0] := #255) so that the Pos function used 
below doesn’t all of a sudden stops working in the middle of the path 
string because it believes that the string has an (undefined) length. 

With a such string length of 255 chars, Pos is guaranteed to find the 
#00 string terminator, which is used for determining the length of the 
String. After that, the search pattern is stripped off (e.g. 
“* PAS”) .Next, the length of the file name is determined, and finally 
added together with the path to create a full file name.This method has 
the disadvantage of currupting the two varaiables path and name. 


See also : fsel exinput 


Procedure fsel_exinput(fs iinpath, fs iinsel : Pointer; 
VAR fs _iexbutton : Integer; 
fs label : Pointer) ; 


Extended file selector input. Instead of writing “ITEM SELECTOR” 
in the file selector box, a user defined message such as “INPUT 
FILE”, “OUTPUT FILE” etc. is written. Requires TOS 1.4. 


fs iinpath : default search path/chosen path 

fs iinsel : default file name/chosen name 

fs iexbutton : exit button : OK (1) or CANCEL (0) 

fs label ; address of title string (max. 30 chars) 


See also : fsel input 
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Window library 

The AES presents some versatile commands for window handling. Windows might at 
first seem quite complex to program, but actually, as most of GEM, when you get to 
work with it, it isn’t all that hard after all. So - have faith, and may the force be with 
you! 


Function wind create (wi_crkind, 
wi _crwx, wi_crwy, 


wi_crww, wi_crwh : Integer) : Integer; 


Create window. Sets type of window border elements and its 
maximum size. 


wi_crkind : window border elements : 


value HighSpeed CONST element type 


1 NAME name bar 
2 CLOSER close box 
4 FULLER full box 
8 MOVER movable 
16 INFO info line 
32 SIZER size box 
64 UPARROW up arrow box 
128 DNARROW down arrow box 
256 VSLIDE vertical slider 
512 LFARROW left arrow 
1024 RTARROW right arrow 
2048 HSLIDE horizontal slider 
Wi _Crwx : upper left corner x of border rectangle 
wi_crwy : 
wi _crww : width 
wi_crwh : height 
Return value : window handle or < 0 if no more windows are avail- 
able 
EX. 


VAR window : Integer; 


window := wind create (NAME + CLOSE + SIZE, 10,20,400,250); 
IF window < 0 THEN WriteLn(‘No more windows available!’); 


creates a window with a NAME bar, a CLOSE box being SIZEable with 
upper left corner at (10,20), width of 400 and height of 250. 


See also : wind open, wind close, wind_delete, wind_get, 
wind set, wind find, wind_update, wind_calc, wind_new 
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Procedure wind_open(wi_ohandle, 
Wi_Owx, wi _owy, 
wi_Oww, wi_owh : Integer); 


Open window, i.e. draw it on the screen. 


wi ohandle : window handle from wind create 


Wi OWx : upper left corner x of border rectangle 
wi Owy 3 ¥ 

Wi Oww : width 

wi _owh : height 


A window can never be opened with a larger size than that given to 
wind create. 


Exa 3 
VAR window : Integer; 


window := wind create(0, 100,100,100,100); { create window } 
IF window >= 0 THEN BEGIN 
wind open(window, 100,100,100,100); { open with max size } 
{ another example would be this : 
wind open(window, 150,150,50,50) ; 


upper left corner at (150,150), width and height = 50 
but the following would merely result in a max. size draw : 


wind open (window, 0,0, 640,400) ; 
upper left = (100,100); width and height = 100} 


See also : wind create, wind close, wind delete, wind get, 
wind set, wind find, wind_update, wind_calc, wind new 


Procedure wind close(wi_clhandle : Integer) ; 
Close window, i.e. remove it from the screen. 
wi_clhandle : window handle from wind create 


Ex. : wind close (MyTextWindow) ; 
wind close should always be called before a wind delete. 


See also : wind create, wind open, wind delete, wind get, 
wind_set, wind_find, wind_update, wind calc, wind_new 
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Procedure wind delete (wi _dhandle : 


Integer) ; 


Delete window, i.e. release memory and window handle. 


wi_dhandle 


EX; 


wind close (MyTextWindow) ; 
wind delete (MyTextWindow) ; 


: window handle from wind create 


{ remove from screen } 
{ and memory } 


wind delete should never be called before a wind close. 


See also : wind create, wind open, wind close, wind get, 
wind set, wind _find, wind_update, wind_calc, wind new 


Procedure wind get (wi_ghandle, wi_gfield : Integer; 


VAR wi_gwl, wi_gw2, 
Wi_gw3, wi_gw4 


; Integer) ; 


Return information about a window (or the desktop). 


wi_ghandle : window handle 
wi gfield : desired information type : 


value HighSpeed CONST 


| 
Oo ot now B&B WDND -E 


PREP PPE 
WHO BWNHEH 


WF_KIND 
WF NAME 

WF INFO 
WF_WORKXYWH 
WF_CURRXYWH 
WF PREVXYWH 
WF FULLXYWH 
WF HSLIDE 

WF VSLIDE 

WF TOP 

WF FIRSTXYWH 
WF NEXTXYWH 
WF RESVD 

WF NEWDESK 
WF HSLSIZE 
WF VSLSIZE 
WF SCREEN 


information returned 


window kind 

window name 

info line 

current work area x, y, w, h 
current border x, y, w, h 
previous border x, y, w, h 
largest possible border xywh 
horizontal slider position 
vertical slider position 
active window’s handle 

first rectangle from list 
next rectangle from list 
reserved! 

new desktop background 

size of horizontal slider 
size of vertical slider 
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wi gwl, 
Wi Qw2, 
wi gw3, 
wi _gw4 ; return values (operation dependent) 


A handle of 0 denotes the desktop. 
Slider measurements are in relative units : 1..1000. 


EX. % 
VAR xX, Y, w, h, Gummy, window : Integer; 


{ determine maximum possible size, a window can have (useful Le’ 3 


{ an application is to run in more resolutions) : } 
wind get (0, WEF | FULLXYWH, x, y, w, h); 
{ get the position of the vertical slider : } 


wind get (window, WE VSLIDE, x, dummy, dummy, dummy); 


See also : wind create, wind | open, wind close, wind | delete, 
wind set, wind find, wind | update, wind calc, wind | new 


Procedure wind set (wi_shandle, wi_sfield, 
wi_swl, wi_sw2, 
wi_sw3, wi_sw4 : Integer) ; 


Set new window information (title, info line, border appearance 
etc.) « 


wi_shandle : window handle 


wi_Sfield : set operation required 
wi _swl, 
Wi Sw2, 
wi sw3, 
wi sw4 : new values (operation dependent) 
Bx: 3 
VAR 
window : Integer; 
wname : String; 


window := wind create (NAME, 100,100,200,200); 

wname := ‘ Yeahooo! * + #00 + #00; { requires two #00 ! } 

wind_set (window, WF NAME, HiPtr(wname(1]), LoPtr(wname[1]), 
0,0) 

{ set the window title. should be done before opening window } 

{ to avoid flicker } 

wind open(window, 100,100,200,200); 

See also : wind create, wind | open, wind close, wind | delete; 

wind get, wind find, wind | update, wind calc, wind | new 
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Function wind find(wi_fmx, wi_fmy : Integer) : Integer; 
Find window at the given coordinates. 


wi _fmx, wi_fmy : coordinates to check 
Return value : 0 = no window; <> 0 = window handle 


This procedure is mainly used when the mouse is clickéd somewhere 
on the screen, and the application wants to determine, if it’s to 
top a window. 

Ex. § 

VAR x, y, window handle : Integer; 


window handle := wind find(x, y); 
IF window handle = 0 THEN NoWindow ELSE TopMyWindow; 


See also : wind create, wind open, wind_close, wind_delete, 
wind get, wind set, wind_update, wind_calc, wind_new 


Procedure wind update (wi_ubegend : Integer) ; 
Send window update message to the AES. 


wi_ubegend : message type : 
value HighSpeed CONST function 


0 END UPDATE end window update 
1 BEG UPDATE begin window update 
2 END MCTRL end mouse control 
S BEG MCTRL begin mouse control 


The term “update” covers an application’s wish to be let alone while 
it’s reconstructing the screen area, whereas “mouse control” is the 
way of saying to the AES, that the user controls, what’s going on. 


EX; 


wind update(BEG UPDATE); { do screen recreation } 
wind update (END UPDATE) ; { completed } 
wind update (END MCTRL) ; { disallow AES mouse actions } 
{ now the application is on its own - mouse actions won’t } 

{ interfere anymore } 
wind update (BEG MCTRL) ; { allow the AES to handle mouse } 
{ actions again } 


See also : wind create, wind open, wind_close, wind delete, 
wind get, wind set, wind find, wind_calc, wind_new 
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Procedure wind calc(wi_ctype, wi_ckind, 
wi_cCx, wi_cy, 
wi_Cinwidth, wi_cinheight : Integer; 
VAR wi _ coutx, wi_couty, 
wi _ coutwidth, wi_coutheight : Integer) ; 


Calculate window size. As a window can be viewed at as consisting 
of two rectangles, the border rectangle and the work rectangle, and 
aS an intimate relationship between these two sizes exists, it is 
possible to calculate the one rectangle if the second is known 
together with the border elements. 


wi ctype : type of operation : 


value HighSpeed CONST calculates 


0 WC_BORDER border rectangle 

1 WC_WORK work area rectangle 
wi_ckind : border elements : NAME, CLOSER etc. 
wi_Cx, wi_cy : upper left corner of known rectangle 
wi_Cinwidth : width 
wi_cinheight : height 
wi _coutx, 
wi_couty : upper left corner of unknown rectangle 


wi_coutwidth : width 
wi _coutheight : height 


Ex. : Assume we’ ve just created a window, and wants to know the work 
area rectangle : 


VAR 
window : Integer; 
x, Y, w, hs: Integer; { work area size } 


window := wind create(NAME + CLOSER + UPARROW + DNARROW, 
10, 10, Z00;. .200) > 
wind calc(1, NAME + CLOSER + UPARROW + DNARROW, 
10, 10, 200, 200, x, y, w, h); 
{ now we know the size of the work area, so now we can clear it } 
{ set clipping rectangle etc. } 


See also : wind create, wind | open, wind close, wind | delete, 
wind | get, wind . set, wind | find, wind | update, wind new 
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Procedure wind new; 

Clear all “left-over” information about the GEM appearance, e.g. the 
number of v_show_c calls, window handles, etc. Used in shells when 
the shell wants to make absolutely sure, that its state is what it 
expects it to be when an applications has been run from the shell 
and returns. Requires TOS 1.4 or higher. 


See also : wind create, wind open, wind close, wind delete, 
wind get, wind set, wind find, wind_update, wind_calc 


Resource library 
Procedure rsrc_load(re Ipfname : Pointer) ; 


Load a resource file with the name pointed to by re lpfname. 
Remember that it must end in #00 (‘“C” convention). 


EX. 3 
VAR resource name : String; 


resource name := ‘MYPROG.RSC’ + #00; 
rsrc_load( addr(resource name[1]) ); { note [1] index } 


See also : rsrc free, rsrc_gaddr, rsrc_saddr, rsrc_obfix 


Procedure rsre_free; 
Release memory allocated to the resource file. 


See also : rsrc_load, rsrc_gaddr, rsrc_saddr, rsrc_obfix 
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Procedure rsrc_gaddr(re_ gttype, re gtindex : Integer; 
VAR re_gtaddr : Pointer) ; 


Get resource data structure address. Used for determining e.g. a 
menu tree’s address. 


re gttype : type of data structure : 


value HighSpeed CONST object type 


0 R_TREE CxYES 
1 R_OBJECT object 
2 R_TEDINFO TEDINFO block 
3 R_ICONBLK ICONBLK block 
4 R BITBLK BITBLK block 
5 R_STRING string/text 
6 R_IMAGEDATA image data 
a R_OBSPEC object specification 
8 R_TEPTEXT text/string 
9 R_TEPTMPLT text template 
10 R_TEPVALID text input validator 
3. R_IBPMASK icon display mask 
12 R_IBPDATA icon bit map 
L3 R_IBPTEXT icon text 
14 R BIPDATA bit-mapped graphics 
15 R_FRSTR free string 
16 R_FRIMG free bit-mapped graphics 
re_gtindex : object index 
re _gtaddr : data structure address 
EX. 


Assume, that we’ ve created a resource file witha menu tree containing 
two menus, DESK and FILE. Now we want to determine the address of 
the FILE tree : 


CONST 
DESK MENU = 0; 
FILE MENU = 1; 
VAR 
address : Pointer; 


{ menu index, randomly chosen for this example } 


esc load... 
rsrc_gaddr(R_TREE, FILE MENU, address) ; 


see also : rsrc_load, rsrc free, rsrc_saddr, rsrc obfi 
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Procedure rsrc_saddr(re sttype, re stindex : Integer; 
re_staddr : Pointer) ; 


Set the address of a resource object. 
re sttype : data structure type. See rsrc_gaddr 
re stindex : index of element to be changed 


re staddr : address of new structure 


see also : rsrc_load, rsrc_free, rsrc_gaddr, rsrc obfix 


Procedure rsrc_obfix(re_oobject : Integer; re otree : Pointer) ; 


Convert object’s coordinates from char coordinates to pixel 
coordinates. 


re oobject : object to fix 
re otree : object tree 


see also : rsrc_load, rsrc_ free, rsrc_gaddr, rsrc_saddr 


Shell library 

The shell library enables the currently running application to start 
up another application and, upon that second application’s 
termination, return to the calling application. Apart from that, 
it keeps track of command line parameters passed from the desktop 
(or another application) to an application. 


Procedure shel_read(sh_rpemd, sh _rptail : Pointer) ; 

Identify command invoking this application. 

sh rpcmd : address of area where to put command part of command 
line (string is in “C” format) 

sh_rptail : address of area where to put arguments from the 


command line (string is in Pascal format!!!) 


See also : shel_write, shel find, shel_envrn, shel get, shel put 
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Procedure shel write (sh_wdoex, sh wisgr, sh_wiscr : Integer; 
sh_wpand, sh wptail : Pointer) ; 


Run another application or return to the desktop when the user exits 
the current application. 


sh_wdoex : what to do when the user exits this application : 
0 = exit to desktop 
1 = run another application 

sh_wisgr : is the next application a graphic application? 


0 = no (TOS/TIP); 1 = yes (PRG/APP) 
sh wiscr : is it an AES application? 
0 =no; 1 = yes 
Note : is currently ignored on the ST; set to zero 
sh wocmd : address of string containing the next application’s 
filename (remember, “C” format so add #0) 
sh_wptail : address of string containing the next application’s 
parameters, but this time it’s in Pascal format!!! 


See also : shel_read, shel_find, shel envrn, Shel get, shel put 


Procedure shel _get(sh_gbuff : Pointer; sh_ glen : Integer) ; 

Read data from the internal AES shell buffer into out own buffer. 

sh_gbuff : address of our buffer (size >= 4192 bytes (strange 
Size!)) 


sh glen : length of the buffer 


See also : shel_read, shel_write, shel find, shel _envrn, shel put 


Procedure shel _put(sh_pbuff : Pointer; sh plen : Integer) ; 
Put data into the internal AES shell buffer. 
sh_pbuff : address of our own buffer 
sh_plen : bytes to write to the AES buffer 
on old TOS (< 1.4) max 1024 bytes 
on new TOS (>= 1.4) max 4192 bytes 


See also : shel_read, shel write, shel find, shel _envrn, shel ge 
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Procedure shel_find(sh_fpbuff : Pointer) ; 


Search for a file in the current directory and in all directories 
in the path. Returns full DOS specification. 


sh_fpbuff : address of filename to search for (“C” format). Will 
also contain the full DOS specification at return. 
Must be at least 81 characters long. 


See also : shel_read, shel_write, shel_envrn, shel_get, shel put 


Procedure shel_envrn(sh_epvalue, sh _eparm : Pointer) ; 

Search for a DOS environment string. 

sh_epvalue : pointer to address pointing to the first character 
following the parameter string 


sh_ eparm : the parameter string to search for (“C” format) 


See also : shel read, shel_write, shel find, shel get, shel put 
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Compiler directives 


HighSpeed Pascal can be controlled by using compiler directives, which are com- 
mands not defined in standard Pascal. Therefore they are placed in specially formed 
comments. 


A directive must start with a $ dollar sign right after the starting bracket, as in ‘{$’ or 
‘(*$’, followed by the command, which can be one or more letter(s). Multi-letter 
directives are used for conditional compilation. 


The different directives have default values, either set by the command line version by 
the given commands , or for the integrated version by filling the different dialogues in 
the options menu. 


Switch directives 
Switch directives are written by using a single letter followed by a ‘+’ ora ‘-’. The 
dialogues show this as a check-mark next to the ‘$X’ text. 


A ‘+’ (or a check-mark in the dialogue) enables the feature. 
Several options can be given in one comment as in (*$R+,S-*). 


Debug Information {$D+} 
{$D+} enables generation of debug information in the generated program file. The 
names saved are for all procedures and functions used. 


Far Calls {$F+} 

($F+} enables the program to be greater than 32 KByte. $F makes all procedure and 
function calls use 32 bit if needed, instead of 16.bit. Each unit may have to be compiled 
with this flag. In Turbo-Pascal for the PC, it is fatal to forget using $F, because the 
information saved on the stack depends on the $F setting. On the 68000, the return 
address is always saved as 32 bit. The $F flag in HighSpeed Pascal only helps the 
compiler to make the best decision when making calls. 


IOResult Checking {$I+} 

{$I+} enables automatic input/output checking. An IO error will terminate the pro- 
gram. By using the $I- option, you will have to test the IOResult function yourself after 
each IO operation. 
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Range Checking {$R+} 

{$R+} enables range checking on simple types. Every assignment to simple types is 
then checked, and every use of indexing in an array or ina string is also checked to be 
within legal range. 


Stack Checking {$S+} 
{$S+} enables stack checking. Stack checking is done as the very first thing in each 
procedure and function that is compiled using the $S+ flag. 


VAR String checking {$V+} 

{$V+} enables the (normal) var-string checking. By using the $V- flag, you can pass 
strings of any length to a procedure, that has a string variable as a VAR parameter. It 
is up to you to make sure the string passed is not overwritten with more than the 
parameter can hold. 


Other single letter directives 


Memory Size Layout {$M stack,hmin,hmax,dosfree} 
{$M stack,hmin,hmax,dosfree} sets the default memory allocation requests. $M does 
not work in a unit. 


Each of the 4 parameters specifies the number of Kilobytes wanted. 


Stack is the request for stack space, minimum 1 

hmin is the minimum request for heap space, minimum 1. 

hmax is the maximum request for heap space. 

dosfree is the amount of memory, that must be left free when the program is started. 


Include Files {$I FileName} {$I FileName} 

{$I FileName} makes the compiler include the named file into the source . The file is 
searched for using the path(s) specified in the Compiler-Option dialogue or on the 
command line in the -I command. 


Object Files {$L FileName} 

{$L FileName} makes the compiler include the named object file when all declaration 
has been done. The EXTERNAL procedures and functions areassumed to be ina .O 
file. You can specify several $L directives, one for each object file. The object file is 
searched for by using the path(s) specified in the Compiler-Option dialogue or on the 
command line in the -Omand. 


Source code control 

The compiler maintains some variables, that are not part of the program being com- 
piled. They can be used to control the way the compiler works, by enabling or disabling 
the compilation of certain parts of the source. 


R1-2 Compiler directives 


These 3 variables are defined in this version: Atari, 68000 and Ver10. 
The last one is valid only in release number 1.0. 


The variables does not contain any value, just test if they are there or not. 


New variables are defined with DEFINE, and removed by using the UNDEF directive. 


The test for their presence is done with either IFDEF (for IF Defined THEN) or IFNDEF 


(for IF Not Defined THEN). 


The compiling state can be changed using the ELSE directive. 
An ENDIF directive ends the $IFxx sequence. 


Finally you can test if a switch option is set by using the IFOPT directive. 
Examples of the use of conditional compilation. 


Unit OutStuff; 
{SIFOPT R+} 

{$Define RangeCheck} 
{SElse} 

{SUnDef RangeCheck} 
{SEndIF } 
begin 
{SIlfDef CPU86} 


N:=Swap(N); {Swap bytes if using the 80x86 family} 


{SEndIF} 


{SIfDef DebugMode} 
writeln(‘Debug=> N is now: ‘,N); 

{SEndIF} 

end. 


Examples: 


{SR-,S+,M oe LO, LOy 20% 
{$S- Disable stack checking} 
{SR+ Make sure range checking is enabled} 
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R1-4 Compiler directives 


Reference 


Abs function 





Function Abs( N ) : (Same type as parameter) Declaration 
Returns the absolute value of the parameter N. Function 
[ is an integer-type or a real-type expression. Remark 
Int, Trunec,Round See also 
Program Abs Demo; Example 
Const 
Negative = -1000; 
Positive = 1000; 
Begin 
Writeln(Negative,' becomes ',ABS (Negative) ); 
Writeln(Positive,' is still ',ABS(Positive) ); 
End. 
Addr function 
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Function Addr( var Object ) : Pointer; Declaration 
Returns the address of the specified object. Function 
The Object parameter can be a variable or a procedure or function identifier. Remark 
SPtr,Ptr See also 
Program Addr Demo; Example 


Var 
A : Pointer; 
hs Lengint s 
Begin 
A := Addr (L); 
{ Another way of doing it is: 
A := @L; 
End. 


} 
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Declaration 
Function 


Remark 


See also 


Example 


Declaration 
Function 


Remark 


See also 


Example 


Append procedure 
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Procedure Append( var F : text [;Name : String [;BufSize : LongInt]] ); 


Prepares a text file for appending. 
The Append procedure can be used in 3 different ways: 


Append(MyFile, ‘NAME.EXT’); 

Does the same as ReWrite, but positions the file pointer at the end of the file. 
Append(MyFile, 'NAME.EXT’, 10000); 

Does the same as the above, but also creates a 10000 byte buffer. 
Append(MyFile); 

Positions the file pointer at the end of an already opened file. 


ReWrite,Reset 


Program Append Demo; 
Var 
DataFile : Text; 
X : Byte; 
Begin 
{ Create a temporary file. } 
ReWrite (DataFile, 'TEMP.DTA'); 
For X := 1 to 100 DO 
Writeln(DataFile, 'HELLO WORLD'); 
Close (DataFile); 
{ Now let's append some data. } 
Append (DataFile, 'TEMP.DTA') ; 
Writeln(DataFile,'Last line in file'); 
Close (DataFile); 
End. 


ArcTan function 
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Function ArcTan( N ) : Real; 
Returns the arctangent of the parameter N. 


N is an integer-type or real-type expression. The result is the principal value, 
in radians, of the argument of N. 


ValidReal 
Program ArcTan Demo; 
Var 
Res : Real; 
Begin 
Res := ArcTan(123); 
End. 
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BlockRead procedure 


Procedure BlockRead( var F,Buf; Cnt : Longint [; var Res : Integer] ); Declaration 
Reads Cnt bytes from the file F into the variable Buf. Function 


F is a file variable (Typed or Untyped) that has been opened. Cnt specifies the Remark 
number of bytes to read from the file. The actual number of bytes read will be 
returned in the optional Res parameter. 


If Res is not specified, and Cnt bytes could not be read, an [O-error will occur. 
Otherwise the number of bytes actually read is returned in Res. 


BlockWrite,Seek See also 
Program BlockRead Demo; Example 
Uses DOS; 


Var 
F In, 
F Out : FILE; { Untyped files } 
Buf >: Array[1..4096] OF Byte; { 
Disk buffer } 
ActualRead, 
ActualWritten : Integer; 
Begin 

If (ParamCount <> 2) then HALT; 

Reset (F_In,ParamStr(1)); 

{SI-} Erase(ParamStr(2)); {$I+} 

ReWrite(F Out,ParamStr(2)); 

Repeat { Copy file In to file Out. } 
BlockRead(F_ In,Buf,SizeOf (Buf) ,ActualReadq) ; 
BlockWrite(F Out, Buf,ActualRead, ActualWritten) ; 

Until (ActualRead = 0) OR (ActualWritten <> 

ActualRead) ; 
Close(F. In); 
Close(F Out); 

End. 
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Remark 


See also 


Declaration 
Function 


Remark 


See also 


=xample 
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BlockWrite procedure 
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Procedure BlockWrite( var F,Buf; Cnt : LongInt [; var Res : Integer] ): 
Writes Cnt bytes from the variable Buf to the file F. 


Fis a file variable (Typed or Untyped) that has been opened. Cnt specifies the 


' number of bytes to write to the file. The actual number of bytes written will be 


returned in the optional Res parameter. 


If Res is not specified, and Cnt bytes could not be written, an IO-error will 
occur. Otherwise the number of bytes actually written is returned in Res. 


BlockRead,Seek 


ChDir procedure 
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Procedure ChDir( Dir : DirStr ); 
Changes the current directory. 


It is not possible to change to another drive using this procedure. To do that use 
the SetDrive procedure. 


RmDir,MkDir,GetDir,SetDrive,DosError,Dos 


Program ChDir Demo; 
Uses DOS; 


Begin 
CHDiY( 'Ce\MYDIR" - 
End. 


Chr function 
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Function Chr( N ) : Char; 

Returns ASCII character number N. 

N is an integer type value in the range of 0..255. 
Ord,Ord4 


Program Chr Demo; 
Var 
B : Byte; 
Begin 
For B s= 32 to .255 DO 
Write (CHR(B) :4); 
End. 
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Close procedure 
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Procedure Close( var F ); Declaration 
Closes an open file. Function 


F is a file variable of any type. Close flushes the files buffer and releases its | Remark 
handle. 


Reset,Re Write, Append 
See also 
ClrEol procedure 
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Procedure ClrEol; Declaration 


Deletes all characters on the current line, starting at the current cursor position. Function 


The position of the cursor is not changed by the ClrEol procedure. Remark 
CirScr,ClrEos See also 
Program ClrEol Demo; Example 
Var 
Y : Byte; 
Begin 
Cirser? 


For ¥ s= 1 te 10 BO 
Writeln ('0123456789'); 
Mor ¥ s= 1 to 10 DO 
Begin 
GoToxAY(SeY)3 CLYrEols 
Bnd; 
End. 
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See also 


CirEos procedure 
Ci SESE ES a Be RO AS SS SI OT ic DE 


Procedure ClrEos; 

Clears the screen starting at the current cursor location. 

The position of the cursor is not changed by the ClrEos procedure. 
ClirScr,ClrEol 


Program ClrEos Demo; 


Var 
X : Integer; 
Begin 
For X := 1 to 1999 DO 
Begin 
GoToXY (Random(80),Random(25)+1); 
Write{ ***) ¢ 
End; 
GoToxXyY (1,10) 2 
ClrEos; 
End. 


CirScr procedure 
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Procedure ClrScr; 
Clears the screen. 


After the call to ClrScr the cursor is placed in the upper left corner of the screen 
(Coordinates 1,1). 


ClrEol,ClrEos 
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Concat function 


Function Concat( $1 [, S2, S3 ...] ) : String; Declaration 
Concatenates 1 or more strings into | string. Function 
Using standard string addition, as for example: 

S1:=S1 +82; 
will give the same result as: 


S1 := Concat(S1,82); 


| Copy, Insert,Delete See also 
Program Concat Demo; Example 
Var 


Al,A2,Res : String; 
Begin 
Al := 'HELLO '; A2 := 
Res := Concat (Al,A2); 
Writeln (Res); 
End. 


"WORLD! ; 


Copy function 


Function Copy( FromStr : String; Index, Count : Byte ) : String; Declaration 
Returns Count characters from FromStr, starting at position Index. Function 
Copy returns an empty string if index is 0 or greaterthan the length of FromStr. Remark 


If Index+Count is greater than the length of FromStr, the Copy function stops 
at the end of FromStr and returns. 


Concat,Insert,Delete, Length,Pos See also 
Program Copy Demo; Example 
Const 
Main = 'EXTRACT THE WORD HELLO FROM THIS 

STRING!; 
Begin 

Writeln (Copy (Main, 18,5) ); 
End. 
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Cos function 
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Function Cos( N ) : Real; 
Returns the cosine of the parameter. 


Nis an integer-type or real-type expression. N is assumed to represent an angle 
in radians. 


Sin,Trunc, ValidReal 


Program Cos Demo; 


Var 
R : Real; 
Begin 
R := COS(20); 
End. 


Dec procedure 
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Procedure Dec( N [, Count] ); 
Decrements an ordinal variable by 1 or by Count. 


N and the optional parameter Count are both simple types. If Count is not 
specified N will be decremented by 1. Otherwise N will be decremented by 
Count. 


Inc,Succ,Pred 


Program Dec Demo; 


Var 
L ¢ LongInt; 
Begin 
L := 100000; 
Repeat 
Dec (L) ; { Decrease L by 1 } 
Dec({L,2); { Decrease L by 2 } 
Untid: 46 € Oye 
End. 
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Delay procedure 


Procedure Delay( Ms : LongInt ); Declaration 
Halts machine execution for Ms milliseconds. | Function 
Program Delay Demo; Example 
Begin 


Writeln('Going to sleep for 5 seconds.'); 
Delay( 5*1000 ); 
End. 


Oelete procedure 


Procedure Delete( var S : String; Index, Count : Byte ); Declaration 
Deletes Count characters from the string S, starting at position Index. Function 


If Index is O or greater then the length of S, no characters are deleted from S. Remark 


Omit,Copy,Insert,Length,Pos See also 
Program Delete Demo; Example 
Var 


Ss : String; 
Begin 
S := 'DELETE THE WORD HELLO FROM THIS STRING'; 
Writeln('Before calling delete: ',s); 
Delete (S,17,6); 
Writeln('After calling delete : ',S); 
End. 
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DelLine procedure 
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Procedure DelLine; 
Deletes the current line from the screen. 


All lines following the current line will be scrolled up, and an empty line 
inserted at the bottom of the screen. 


InsLine,GotoX Y 


Program DelLine Demo; 


Var 
X,Y : Integer; 
Begin 
For X := 1. toe 8&0 Do 
For Y := 1 to 24 DO 
Begin 
GoToOXY (X,Y); Write('*'); 
End; 


GOLlORY (30,10) 3 
Writeln('Press ENTER to go on'); 
Readln; 
GOTOXY (1,1) 
Foy ¥ a= 1 to: 24 DO 
DelLine; 
End. 
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DiskFree function 


Function DiskFree( Drive : Byte ) : Longint; Declaration 
Returns the number of available bytes on the disk in the specified drive. Function 
Drive numbers are ordered as follows: Remark 


drive 0 = Current disk drive. 


- ]|=Drive A: 

- 2=Drive B: 
DiskSize,GetDrive,SetDrive,Dos See also 
Program DiskFree Demo; Example 
Uses DOS; 


Begin 

Writeln( DiskFree(0) DIV 1024,' Kb available on 
CUPTSENnC. Gisk.") +s 
End. 


DiskSize function 


Function DiskSize( Drive : Byte ) : Longint; Declaration 
Returns the size of the disk in the specified drive. Function 
Drive numbers are ordered as follows: Remark 


drive O = Current disk drive. 


- j=DriveA: 

- 2=Drive B: 
DiskFree,GetDrive,SetDrive,Dos See also 
Program DiskSize Demo; Example 
Uses DOS; 


Begin 

Writeln( DiskSize(0) DIV 1024,' Kb available on 
Current disk.) ; 
End. 
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Dispose procedure 


Declaration Procedure Dispose( var P : Pointer ); 
Function Disposes a dynamic variable. 


Remark P is a pointer variable of any type that was previously assigned by the New 
procedure or was assigned a value by an assignment statement. 
After a call to Dispose the variable referenced by P is destroyed and its space 
in the heap is released. 


New,FreeMem,GetMem 


See also Program Dispose Demo; 


Example Type 


PersonType = Record 
Name f String 20]: 


Age ; Byte; 
End; 
Var 
PersonData : “PersonType; 
Begin 


New(PersonData); { Allocate space in heap } 
With PersonData”* DO 


Begin 
Write('Enter name: '); ReadLn(Name) ; 
Write('Enter age : '); ReadLn(Age); 
End; 
Dispose (PersonData); { Dispose the Space } 
End. 
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DosError variable 


Var DosError : Integer; Declaration 
Returns the error status for some of the routines in the DOS unit. Function 
The DosError values are declared in the DOS unit: Remark 
Const 

EINVFN = -32; { Invalid Function Number } 

EFIINF = -33; { File Not Found } 

EPTHNE = —34; { Path Not Found } 

ENHNDL = —35; { File Handle Pool Exhausted } 

EACCDN = —36; { Access Denied } 

EIHNDL = -—37; { Invalid Handle } 

ENSMEM = —39; { Insufficient Memory } 

EIMBA = -40; { Invalid Memory Block Address  } 

EDRIVE = —46; { Invalid Drive Specification } 

ENSAME = —48; 

ENMPIL = —49; { No More Files } 

ERANGE = —64; { Range Error } 

EINIRN = -65; { GEMDOS Internal Error } 

EPLFM. = —66; { Invalid Executable File format } 

EGSBF’ = -67; { Memory Block Growth Failure } 
Dos,BiosErrors,RuntimeErrors See also 


EnvCount function 
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Function EnvCount : Integer; 


Function 
Returns the number of environment strings in the systems environment block. ee. 
Use the functions EnvStr and GetEnv to examine the contents of the environ- 
ment block. 

See also 
EnvStr,GetEnv,Dos Example 


Program EnvCount Demo; 
Uses DOS; 
Begin 
Writeln(EnvCount,' strings in the environment 


block. ')? 
End. 
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EnvStr function 
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Declaration Function EnvStr( Index : Integer ) : String; 


Function Returns the environment string number Index. 
Remark If Index is O or greater than EnvCount, EnvStr will return an empty string. 
See also Env Count,GetEnv,Dos 
Example Program EnvStr Demo; 
Uses DOS; 
Var 
Count : Integer; 
Begin 
Writeln('Program to display the environment 
block...) ¥ 
Writeln; 
For Count := 1 to EnvCount DO 
Writeln( EnvStr(Count) ); 
Writeln; 
Writeln('Done.'); 
End. 
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Eof function 


Function Eof [ ( var F ) ] : Boolean; Declaration 
Returns false if there is still data to read after the current file position. Function 


Fisa file variable of any type, that has been opened. If Fis omitted the standard Remark 
file Input is assumed. 


SeekEof,EolIn See also 


Program Eof Demo; Example 
Jses DOS; 


Var 
iL ¢ Pext: 
D «= String; 
Begin 
{SI-} Reset(T, "TEMP.TXT'); {SI+} 
If (IOresult = 0) then 


Begin 
While NOT(Eof(T)) DO 
Begin 
ReadLn(T,D); Writeln(D); 
End; 
Close (T); 
End 
ELSE 
Writeln('Error opening file.'); 


End j 
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Eoln function 
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Function Eoln [ ( var F : text ) ] : Boolean; 


Returns false if there is still datato read after the current file position, but before 
the next new line. 


Fis a file variable of type text, that has been opened. If Fis omitted the standard 
file Input is assumed. 


SeekEoln,Eof 


Program Eoln Demo; 
Uses DOS; 


Var 
Es Texte 
& $ Char? 
Begin 
{SI-} Reset(F,'TEMP.TXT') ; {SI+} 
While NOT(Eoln(F)) DO 
Begin 
Read(F,C); 
Write(C); 
End; 
Close (F); 
End. 


Erase procedure 
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Procedure Erase( F : String ); 
Erases a file from disk. 

Do not erase an open file. 
Rename 


Program Erase Demo; 
Var 
DummyFile : FILE; 
Begin 
{ Create a file. } 
ReWrite (DummyFile, 'DUMMY.DTA'); 
Close (DummyFile); 
Write('Press RETURN to erase the dummy file.'); 
Readln; 
Erase ('DUMMY.DTA') ; 
End. 
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Exit procedure 


Procedure Exit; 


Declaration 


Exits from the current block of code. Function 


If the current block is the main program, the call to Exit will cause the program Remark 
to terminate. If the current block is a procedure or a function an exit is made, 
and control is passed to the caller. 


Halt,ExitProc 
Program Exit Demo; 


’rocedure WasteTime; 
Begin 
Repeat 
If (Random(1000) 
Until False; 
End; 


Begin 
WasteTime; 
End. 


See also 


Example 


= 999) then EXIT; 
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ExitProc variable 
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Var ExitProc : Pointer; 
Points to the start of the exit chain. 


The idea of the ExitProc variable is to allow user written procedures or 
functions to be executed just before a program terminates. 

This feature can be very useful if for example some files need to be closed, 
before the program stops. 

As can be seen from the followingexample, it is very important that the original 
value of the ExitProc variable is first saved and later restored in the exit routine. 
If this is not done the systems own exit procedure will not be executed, causing 
unpredictable results. 


Halt, Exit 


Program ExitProc Demo; 
Var 
OldExit : Pointer; 

Procedure MyExit; 

Begin 

ExitProc := OldExit; {Restore the original value! } 
Writeln('End of program.'); 
End; 
Begin 

OldExit := ExitProc;{ Save the original value! } 
ExitProc := @MyExit;{ Set the new value. } 
{ Do work here. } 

End. 


Exp function 


ERIS Be ce Ge Ee 
Function Exp( N ) : Real; 


Returns the exponential of N. 


N is an integer-type or real-type expression. 


Ln, ValidReal 
Program Exp Demo; 
Var 
R : Real; 
Begin 
Write('Enter a number: '); Readln(r); 
Writeln; 
Writeln('The enponential is: ',EXP(r)); 
End. 
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FExpand function 
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Function FExpand{ Path : PathStr ) : PathStr; Declaration 
Expands a file path into a fully qualified file path. Function 


Assuming that the current directory is C\NMAXPAS, the following results | Remark 
would be returned by FExpand: 


FExpand('!'); = C:\MAXPAS \ 
FExpand('*. PAS"); = C:\MAXPAS\*.PAS 
FExpand('..\*. INF"): = C:\*.INF 
FExpand('..\MAXPAS\..\*.PAS'); = C:\*.PAS 


_ As can be seen from the above, FExpand converts its output to uppercase. 


FSplit,FindFirst,Dos See also 
Program FExpand_ Demo; Example 
Uses DOS; 

Var 


Path : Pathstre 
Begin 
Write('Enter path to expand: '); Readln(Path); 
Path := FExpand(Path); 
Writeln('Fully expanded: ',Path); 
End. 
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FilePos function 
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Function FilePos( var F ) : LongInt; 
Returns the number of the current record in file F. 


Fis a file variable (Typed or Untyped) that has been opened. Afteracall to Reset 
or ReWnite, FilePos will return 0. 


Seek, FileSize 
Program FilePos Demo; 


Var 
DataFile : FILE OF Byte; 
B : Byte; 
Begin 
ReWrite (DataFile,'TEMP.DTA'); { Create a temporary file. } 
For B := 1 to 100 DO 
Write (Datafile,B); 


Repeat { Seek around in the file. } 
Seek (DataFile, Random(FileSize (DataFile) )); 
WriteLn('Current file position is: ',FilePos(DataFile) ); 
Until KeyPressed; 


Close (DataFile) ; 
Erase ('TEMP.DTA'); 
End. 


FileSize function 
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Function FileSize( var F ) : LongInt; 

Returns the number of records in file F. 

Fis a file variable (Typed or Untyped) that has been opened. 
FilePos,Seek 
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FillChar procedure 
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Procedure FillChar( var Object; Count : LongInt; FillVal : Byte ): Declaration 
Fills memory starting at the address specified by Object. Function 


Object is any variable. Count specifies how many bytes of memory that areto Remark 
be filled. FillVal specifies the value that is to be used for the fill. 


If Count is greater than the size of Object, other data or code may be 
overwritten, Causing unpredictable results. Therefore the SizeOf function 
should be used to specify the number of bytes to fill. 


SizeOf,Move See also 
Program FillChar Demo; Example 
Var 


Big : Packed Array[1..30000] OF Byte; 
C : Integer; 
Begin 
Writeln('Doing it the slow way.'); 
For C f= 1 to 30000 DO 
Big[c] := 0; 


Writeln('Doing it the fast way.'); 


FillChar (Big, SizeOf (Big),0); 
End. 
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FindFirst procedure 
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Declaration Procedure FindFirst( Path : String; Attr : Byte; var S : SearchRec ) 


Function Searches a directory for the first entry matching a specified file name and set 
of attributes. 
Remark Path is a path to a directory on a specified drive. The path consists of a directory 


name, which is optional, and a file name. The file name can contain wild card 
characters (* and ?). The directory name must be implicit. 
The Attr parameter specifies the special files to search for (in addition to all 


normal files). 
The file attributes are declared in the DOS unit as follows: 
Const 
ReadOnly = $01; ) 
Hidden = $02; 4 
SysFile = $04; 
VolumeID = $08; 
Directory = $10; 
Archive = $20; 
AnyFile = $3F; 


Upon return FindFirst places the result of the search in the S variable. S is of 
the type SearchRec, which is declared in the DOS unit: 


SearchRec = Record 
Reserved : packed Array[0..20] OF Byte; 
Attr : Byte; 
Time : Longint; 
Size : Longint; 
Name : String (22) 
End; 


After a call to FindFirst the variable DosError must be checked. If it is not 0, 
the contents of the S parameter will be garbage. 


See also Find Next,UnPackTime,DosError,Dos 


Example program FindFirst_FindNext Demo; 
Uses DOS; 
Var 
DosData : SearchRec; 
Begin 
FindFirst( '*.*" , AnyFile, DosData ); 
While (DosError = 0) DO 
Begin 
With DosData DO 
Write(Name :20 ); 
FindNext (DosData) ; 
End; 
End. 
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FindNext procedure 
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Procedure FindNext( var S : SearchRec ) 


Finds the next entry matching the specifications given in a previous call to 
FindFirst. 


The S parameter must be the same one that was used in the call to FindFirst. 


After a call to FindNext the variable DosError must be checked. If it is not 0, 
the contents of the S parameter will be garbage. 


FindFirst,Dos 


FreeMem procedure 
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Procedure FreeMem( var P : Pointer; Size : LongInt ); 

Disposes a dynamic variable of a given size. 

Pisa pointer variable of any type that was previously assigned by the GetMem 
procedure. Size specifies the size of the dynamic variable to dispose. Size must 
be equal to the size specified in the call to GetMem. 

GetMem,New, Dispose 


Program FreeMem Demo; 


Var 
Data : Pointer; 
EF ; FILES 
R : Integer; 
Begin 


GetMem(Data,1024); { Allocate 1K in the heap } 
Reset (F, ‘TEMP.DTA') ; 
BlockRead (F,Data*,1024,R) ; 
Close(F); 
FreeMem(Data,1024) ; 
End. 


Declaration 


Function 


Remark 


See also 


Declaration 
Function 


Remark 


See also 


Example 


Reference R2-23 


Declaration 


Function 


Remark 


See also 


Example 


FSplit procedure 


ELST I ES a 
Procedure FSplit(P : PathStr; var D:DirStr;var N:NameStr;var E:ExtStr); 
Splits a file path into its 3 components: 

The directory specification. 

The file name. 

The file extension. 


Any of the 3 components can be empty on return, if the file path did not contain 
that component on entry. 


The PathStr, DirStr, NameStr and ExtStr are declared in the DOS unit. 


Lype 
PathStr = String[79]; 
DirsStr = String[67]; 
NameStr = String[8]; 
EXtStr = String[4]; 
FExpand,GetDir,Dos 


Program FSplit Demo; 


Uses DOS; 

Var 
PUuULLIPSath : Pathnsters 
Diy : Dirstr-> 
Name : NameStr; 
Ext : Bxtstrs 

Begin 

Repeat 


Write('Enter path to split: '); 
Readin(FullPath); 
FSplit (FullPath,Dir,Name,Ext) ; 


Writeln; 
Writeln(FullPath,' consists of:'); 
Writeln; 
Writeln('The directory s *, Deh) 
Writeln('The file name : ',Name); 
Writeln('With the extension: ',Ext); 
Until (ruliPath = ' 4 
End. 
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GetDate procedure 
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Procedure GetDate( var Year, Month, Day, DayOfWeek : Integer ); Declaration 
Returns the current date set in the operating system. Function 
The ranges of the returned values are: Remark 
Year 1980..2099 

Month Lg TQ 

Day 1 R 

DayOfWeek 0..6 (Where 0 = Sunday, 1 = Monday ... ) 
SetDate,GetTime,Dos See also 
Program GetDate Demo; Example 
Uses DOS; 
Var 

Year, Month, Day, DayOfWeek : Integer; 

Begin 


GetDate (Year, Month, Day, DayOfWeek) ; 
Write('Today is '); 
Case DayOfWeek OF 


0 


NU BWN FH 


End; 


Write('Sunday'); 
Write ('Monday'); 
Write ('Tuesday'); 
Write ('Wednesday') ; 
Write('Thursday'); 
Write('Friday'); 
Write ('Saturday'); 


Writein{ *..")e 


End. 
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Declaration 
Function 


Remark 


See also 


Example 


Declaration 
Function 


Remark 


See also 


Example 


GetDir procedure 


Procedure GetDir( Drive : Byte; var Dir : DirStr ); 
Returns the current directory ona specified disk drive. 
Drive numbers are ordered as follows: 

drive 0 = Current disk drive. 

- |=DriveA: 

- 2=DriveB: 
ChDir,RmDir,MkDir,GetDrive,Dos 
Program GetDir Demo; 


Uses DOS; 


Var 
CurDar « DirStr; 

Begin 

GetDir (0,CurDir) ; 

Writeln('Current dir on current drive is: ',CurDir); 

GetDirt],CarDix): 

Writeln('Current dir on drive A: is s T Curbir).s 
End. 


GetDrive function 


Function GetDrive : Byte; 
Returns the number of the current disk drive. 


The drive numbers are ordered as follows: 


O = Drive A: 
1 = Drive B: 
SetDrive,GetDir,Dos 


Program GetDrive Demo; 
Uses DOS; 
Begin 


Writeln('Current drive is: ',GetDrive); 
End. 
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\ 


GetEnv function 
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Function GetEnv( MatchStr : String ) : String: 


Returns the value of a specific environment string. 


If no match is found for MatchStr, GetEnv will return an empty string. 


EnvCount,EnvStr,Dos 
Program GetEnv_ Demo; 


Uses DOS; 


Begin 
Writeln('Current PATH is: ', GetEnv('PATH')); 


End. 


Declaration 
Function 
Remark 
See also 


Example 
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GetFattr procedure 


Declaration Procedure GetFAttr( Fil : PathStr; var Attr : Integer ); 
Function Gets the attributes of a file. 


Remark The file attributes and PathStr are declared in the DOS unit: 


Const 
ReadOnly = S01; 
Hidden = $02; 
Sysfile = $04; 
Volume ID = $08; 
Directory = $10; 
Archive = $20; 
AnyFile = $3F; 
Type 
PathStr = String[79]; 
See also SetFAttr,DosError,Dos 
Example Program GetFAttr Demo; 
Uses DOS; 
Var 
Attrs ; Integer; 
Begin 


Tf (ParamCount = 0) then HALT; 
GetFAttr( ParamStr(1), Attrs ); 
If (DosError = 0) then 
Begin 
If (Attrs AND ReadOnly > 0) then 
WriteLn('ReadOnly'); 
If (Attrs AND Hidden > 0) then 
WriteLn('Hidden') ; 
If (Attrs AND SysFile > 0) then 
WriteLn('System'); 
If (Attrs AND VolumeID > 0) then 
WriteLn('Disk label'); 
If (Attrs AND Directory > 0) then 
WriteLn('Directory'); 
If (Attrs AND Archive > 0) then 
WriteLn('Archive'); 
End 
ELSE 
Writeln('No file name specified.'); 
End. 
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GetFTime procedure 
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Procedure GetFTime( var F; var Time : LongInt ); 
Gets the time and date of a file. 


The F parameter is a file variable (Typed, Untyped or Text) that has been either 
Reset, Rewritten or Appended. 


The returned long integer can be unpacked, using the UnPackTime procedure. 


SetFTime,UnPackTime,Reset, DosError,Dos 
Program GetFTime Demo; 
Uses DOS; 
Var 
DiskFile : TEXT; 
Name : String; 
DatTim : DateTime; 
PackData : LongInt; 
Begin 


Write ('Enter name of file to work with: '); Readin (Name); 
{SI-} Reset (DiskFile,Name); {SI+} 
If (IOresult = 0) then 
Begin 
GetFTime( DiskFile, PackData ); 
UnpackTime (PackData,DatTim) ; 
With DatTim DO 
Begin 
Writeln('Date of update/creation is: ',Day,'- 
',Month, '/', Year) ; 
Writeln('Time of update/creation is: 
' Hour, ".«",Min, "," ,Sée) s 
End; 
Close (DiskFile) ; 
Writeln('Done.'); 
End 
ELSE 
Writeln('Error while opening file.'); 
End. 


Declaration 
Function 


Remark 


See also 


Example 
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Declaration 
Function 


Remark 


See also 


Example 


GetMem procedure 


Procedure GetMem( var P : Pointer; Size : Longint ); 
Creates a new dynamic variable and sets P to point to it. 


Pis a pointer variable of any type. Size specifies the size in bytes of the dynamic 
variable to allocate. 


FreeMem,Dispose, New, MemAvail,MaxAvail 


Program GetMem_ Demo; 


Var 
Data : Pointer; 
F ¢ ELLE 
R : Integer; 
Begin 


GetMem(Data,1024); { Allocate 1K in the heap } 
Reset (F, 'TEMP.DTA"'); 
BlockRead(F,Data%*,1024,R) ; 
Close (F);? 
FreeMem(Data,1024); 

End. 
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GetTime procedure 


Procedure GetTime( var Hour, Min, Sec, Sec100 : Integer ); Declaration 
Returns the current time in the operating system. Function 
The ranges of the returned values are: Remark 

Hour User 

Min 0 ee 

sec 0 < «58 


The Sec100 parameter, which has been implemented for compatibility with 
Turbo Pascal, is not supported by the operating system, and will therefore 
always return 0, Due to the operating system, the returned seconds will always 
be divisible with two. 


SetTime,GetDate,Dos See also 
Program GetTime Demo; Example 
Uses DOS; 


Var 
Hour, Minute, Second, Hundreds : Integer; 
Begin 
Repeat 
GetTime (Hour, Minute, Second, Hundreds) ; 
GoToxY (1,4) % Clrpei; 
Write (Hour,'.',Minute,',', Seconda) ; 
Until keyPressed; 
End. 
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GetVerify function 





Declaration Procedure GetVerify( var Verify : Boolean ); 

Function Returns the value of the disk verify flag. 

Remark When verify is on (True), TOS will check to see if data written to the disk, has 
been stored properly. This is done by trying to read the data just written. 
When off (False), TOS will simply write the data. 


See also SetVerify,Dos 


Example Program GetVerify Demo; 
Uses DOS; 
Var 
Res : Boolean; 
Begin 


Write('Current state of disk verify is '); 
GetVerify( Res ); 
Case Res OF 
True : Writeln('ON'); 
False : Writeln('OFF'); 
End; 
End. 


GotoXY procedure 





Declaration Procedure GotoXY( Col, Lin : Integer ); 
Function Positions the cursor at specific screen coordinates. 


Remark On a standard monochrome screen the range for X and Y are: 
x. 2080 Y 1425 
Where position 1,1 is the upper left corner. 


See also WhereX, Where Y,ClrEos,InsLine,DelLine 


Example Program GoToxY Demo; 
Var 
X,Y 3: Integer; 
Begin 
For X := 1 to 80 DO 
For Y := 1 to 25 ‘DO 
Begin 
GoToXY (X,Y); 
Tf (X*¥) < (80*25) then 
Write(' **) ; 
End; 
End. 
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Halt procedure 
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Procedure Halt [ ( Exit Code : Integer ) ]; 
Halts the current program. 


If the optional parameter ExitCode is not specified, an exitcode of 0 will be 
used. 


Exit,ExitProc 
Program Halt Demo; 
Uses DOS; 


‘Begin 
If (ParamCount = QO) 
HALT (99) ; 
End. 


then 


Hi function 
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Function Hi( N : Integer ) : Byte; 
Returns the high byte of N. 
Lo,LoWord,HiWord,S wap 


Program Hi Demo; 
Begin 

Writeln(Hi($1234)); 
End. 


HiWord function 
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Function HiWord( N : Longint ) : Integer; 
Returns the high word of N. 
LoWord,Hi,Lo,SwapWord 


Program HiWord Demo; 
Begin 

Writeln (HiWord($12345678) ); 
End. 


Declaration 
Function 


Remark 


See also 


Example 


Declaration 
Function 
See also 


Example 


Declaration 
Function 
See also 


Example 
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Declaration 
Function 


Remark 


See also 


Example 


Declaration 
Function 


Remark 


See also 


Example 


Inc procedure 
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Procedure Inc( N [, Count ] ); 

Increments an ordinal variable by 1 or by Count. 

N and the optional parameter Count are both simple types. If Count is not 
specified N will be incremented by 1. Otherwise N will be incremented by 
Count. 


Dec,Pred,Succ 


Program Inc Demo; 


Var 
L : LongInt; 
Begin 
L := 0; 
Repeat 
ine()} { Increase L by 


ae 
Inc(L,2); { Increase L by 2 } 
UHtLL (0 > LOG000): 
End. 


Include function 
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Function Include( NewStr, MainStr : String; Index : Byte ); 
Returns MainStr with NewStr inserted at position Index. 


MainStr is not affected by the call to Include. Except for this the rules for the 
Include function are the same as for the Insert procedure. 


Insert 


Program Include Demo; 
Begin 

Writeln(Include('IS ','ATARI GREAT',7)); 
End. 
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Insert procedure 


Procedure Insert( New : String; var Main : String; Index : Byte ); 
Inserts New into Main at position Index. 


Include,Copy,Delete,Length,Pos 


Program Insert Demo; 


Var 
5 « String? 
Begin 
S te Hello *s 


Insert(* World! ',S, 6); 
Writeln(S); 
End. 


InsLine procedure 


Procedure InsLine; 
Inserts a blank line on the screen. 


All lines under and including the current line will be scrolled down, and the 
bottom line is lost. 


DelLine,GotoX Y 


Program InsLine Demo; 


Var 
AyY 3s Integer; 
Begin 
For X := 1 to 80 DO 
For Y := 1 to 24 DO 
Begin 
GoToxy (X,Y); Write (Random(2) ); 
End; 


GoTozxy (350...10)' 5 
Writeln('Press ENTER to go on'); 
Readln; 
GOTOAY €1L,,.1)% 
Por ¥ s= J Eo 25 DO 
InsLine; 
End. 


Declaration 
Function 
See also 


Example 


Declaration 
Function 


Remark 


See also 


Example 
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Yeclaration 
function 
see also 


?xample 


Declaration 
‘unction 


Remark 


“xample 


Int function 
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Function Int( N : Real ) : Real; 
Returns the integer part of N. 


Trunc,Round,Abs 


Program Int Demo; 


Var 
R : Real; 
Begin 
Ri c= INT{(1234.5678) * { R = 1234.00 4 
End. 


lOresult function 
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Function lOresult : Integer; 
Returns the error status of the last IO operation. 


It is important to notice that IOresult is used as an error status for several IO 
routines in the system. Therefore it is not reliable to make a program like this: 


{ Do some file operations here. } 
Writeln(Error code: ',JOresult); 


Since Writeln also uses [Oresult to report errors. (Thereby setting IOresult to 
O when writing 'Error code: '). Instead do like this: 


{ Do some file operations here. } 
My Var := [Oresult; 
Wniteln(‘Error code: ',;MyVar); 


Program [Oresult Demo; 


Var 
Eo: FILE? 
Begin 
{SI-} Reset(F,'TEMP.TXT'); {SI+} 
If (IOresult <> 0) then 
ReWrite(F, 'TEMP.TXT'); 
Enda. 
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KeyPressed function 
Declaration 


Function KeyPressed : Boolean; 


Checks to see if the keyboard has been pressed. Function 
KeyPressed will retum True if akey is waiting to be read, otherwise False. Remark 
ReadKey See also 
Program KeyPressed_Demo; Example 
Begin 

Repeat 


Writeln('Please press 4 Key F2 
Until KeyPressed; 
Writeln('You pressed ' ReadKkey) ; 
End. 


Length function 


Function Length( S : String ) : Byte; Declaration 
Retums the length of string 5. Function 
The returned value will be in the range of 0..255. Remark 
Copy,Concat, Insert,Include,Delete,Omit,Fos See also 
Program Length_Demo; Example 
Var 
S : String; 

Begin 

Write('Enter a string: '); Readln(S) ? 

Writeln; 

Writeln('You entered ' Length (S),' characters"); 


Writeln('You entered ' Ord(S[0)),' characters"); 
Ena. 


Reference R2-37 


Declaration 
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See also 


Example 


Declaration 
“unction 
see also 


ixample 


Jeclaration 
“unction 
ee also 


‘xample 


Ln function 


Function Ln( R ) : Real; 

Returns the natural logarithm of R. 

N is a real-type expression. The result is the natural logarithm of R. 
Exp,ValidReal 


Program Ln Demo; 


Var 
R : Real; 
Begin 
R := LN(100); 
End. 


Lo function 


EEE a I ei a kM ee 
Function Lo( N : Integer ) : Byte; 

Returns the low byte of N. 

Hi,HiWord,LoWord 


Program Lo Demo; 


Var 
A 3: Byte; 
Begin 
X := Lo($1234); { = $34 } 
End. 


LoWord function 





Function LoWord( N : Longlnt ) : Integer; 
Returns the low word of N. 

HiWord,Hi,Lo 

Program LoWord Demo; 

Begin 


Writeln(LoWord($12345678)); 
End. 
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MaxAvail function 





Function MaxAvail : Longint; Declaration 
Returns the size of the largest contiguous memory block in the heap. Function 
MemAvail,New,GetMem See also 
Program MaxAvail Demo; Example 
Var 


P : Pointer; 
Begin 
If (MaxAvail > 1000) then 
| GetMem(P,1000); 
End. 


MemaAvail function 


Function MemAvail : Longint; Declaration 
Returns the sum of the sizes of all free memory blocks in the heap. Function 
MaxAvail See also 
Program MemAvail Demo; Example 
Begin 


Writeln('Bytes free in the heap is: ',MemAvail); 
End. 


MkDir procedure 


Procedure MkDir( Dir : DirStr ); Declaration 
Creates a new directory. Function 
ChDir,RmDir,GetDir,DosError,Dos See also 
Program MkDir Demo; Example 
Uses DOS; 
Begin 

MkDir('MYDIR'); 
End. 
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Move procedure 





Declaration Procedure Move( var Source, Dest; Count : Longint ); 
Function Move Count bytes from Source to Dest. 
Remark Source and Dest can be any variable. Count specifies how many bytes to move. 


If Count is greater then the size of Dest, other code or data may be overwritten, 
causing unpredictable problems. Therefore it is a good idea to use the SizeOf 
function to specify how many bytes to move: 


Example Var 
Big : Longint; 
Small : Integer; 
Begin 
Move (Big, Small, 4); { The very dangerous way of doing it! } 
Move (Big, Small, SizeOf(Small)); { The safe way of doing it. } 
End. 


Sizeof,FillChar 


Program Move Demo; 


Var 
Bigl : Packed. Array[l..2000] OF Integer; 
Big2 : Packed Array(1..1000} OF Integer; 
Begin 
Move (Bigl, Big2,SizeOf (Big2) ) ; 
End. 
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New procedure 
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Procedure New( var P : Pointer ); 


Creates anew dynamic variable and sets P to point to it. 


Declaration 


Function 


P is a pointer variable of any type. The size of the allocated memory block Remark 


corresponds to the size of the type that P points to. 
Dispose,GetMem,FreeMem,MemAvail,MaxAvail 


Program New Demo; 


Type 
PersonType = Record 
Name > Strang! 20] } 
Age ; Byte; 
End; 
Var 
PersonData : “PersonType; 
Begin 


New (PersonData); { Allocate space in heap } 


With PersonData® DO 
Begin 
Write('Enter name: 


End; 


Dispose (PersonData); { Dispose the space } 


End. 


')s ReadLn (Name) ; 
Write('Enter age : '); ReadbLn (Age); 


See also 


Example 
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Declaration 
Function 
Remark 


Example 


Declaration 
“unction 


Remark 


See also 


=xample 


Odd function 


Function Odd( N ) : Boolean; 
Tests to see if the N parameter is an odd number. 
N is an integer type value. 


Program Odd Demo; 


Var 
L : Longint; 
Begin 
Repeat 
Write('Enter a number: '); Readln(L); 
If Odd(L) then 
Writeln('ODD') 
ELSE 
Writeln('EVEN'); 
Until (L = 0); 
End. 


Omit function 





Function Omit( S : String; Index, Count : Integer ) : String; 
Returns S with Count characters deleted, starting at position Index. 


The rules for the Omit function are the same as for the Delete procedure, except 
for the fact that the S string is left untouched when using the Omit function. 


Delete 


Program Omit Demo; 
Begin 

Writeln (Omit ("ATARI IS NOT GREAT',10,4)); 
End. 
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Ord function 
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Function Ord( x ) : Integer; 
Returns the ordinal number of an ordinal-type or pointer-type value. 


If X is an ordinal-type expression, the result is of type integer and the value is 
the ordinality of X. If X is a pointer-type expression, the result is of type 
LongInt, and the value is the address of the dynamic variable pointed to by X. 


Ord4,Chr 


Program Ord Demo; 


Var 
G © Chat? 

Begin 

Write('Enter something: '); 

C := ReadKey; 

Writeln; 

Writeln('The ordinal value of ',C,' is ',ORD(C)); 
End. 


Ord4 function 
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Function Ord4( x ) : LongInt; 
Returns the ordinal number of an ordinal-type value. 


This function does the same as the Ord function, but the result is always a long 
integer. 


Ord,Chr 


Declaration 
Function 


Remark 


See also 


Example 


Declaration 
Function 


Remark 


See also 
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Declaration 


PackTime procedure 


Procedure PackTime( D : DateTime; var Result : Longint }; 


Function Packs a 12-byte DateTime record into a 4-byte long integer. 
Remark The DateTime record is declared in the DOS unit: 
Type 
DateTime = Record 
Year ; Integer; 
Month : Integer; 
Day ;: Integer; 
Hour s: Integer; 
Min : Integer; 
Sec 3 Integers 
End; 
PackTime returns a long integer with the following format: 
bits 0 - 4 seconds (/ 2) 16 - 20 day of m. 
_ 5 - 10 minutes 21 - 24 month 
“ Li = 15 * hours 2a: "= 3. year 
The returned long integer can be used by SetFTime and UnPackTime. 
See also UnPackTime,SetFTime,Dos 
Example Program PackTime Demo; 
Uses DOS; 
Var 
U : DateTime; { The unpacked time and date } 
BP  Longint? { The packed time and date } 
Procedure WriteData; 
Begin 
With U DO 
Begin 
Wrecetat Times “,Hour,*.',Min,’, ",5e¢}v 
WriteLn( "Date: ',Day; '-',Month, '/";Year) 
End; 
Writeln; 
End; 
Begin { main } 
With U DO 
Begin 
Year := 1990; Month := 12; Day := 24; 
Hour := 12; Min := 0; Sec := 0; 
End; 
Writeln('Before packing:'); WriteData; 
PackTime(U,P); 
Writeln('The packed time and date: ',P); 
UnPackTime(P,U); 
Writeln('After unpacking:'); WriteData; 
End. 
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Page procedure 


Procedure Page [ ( var F : text ) ]; 
Writes a formfeed character to file F. 


If Fis omitted, the standard file Output is assumed. Page is equivalent to: Write( 
F, Chr(12) ); 


Program Page Demo; 
Var 
LT = Texte 

Begin 
ReWrite(T, 'PRINTER.DTA'); 
Writeln(T, 'First page.'); 
Page (T) ; 
Writeln(T, 'Second page."'); 
Page (T) ; 
Writeln(T, 'Third page.'); 
Page (T) ; 
CLoOset?T) 

End. 


ParamCount function 


Function ParamCount : Integer; 
Returns the number of parameters that were passed on the command line. 
Use the ParamStr function to obtain the value of the parameters. 


ParamStr,Dos 


Program ParamCount Demo; 
Uses DOS; 


Var 
Res, Count : Integer; 
Begin 
Res := ParamCount; 
Writeln('You passed ',Res,' parameters to this program.'); 
Writeln; 
If (Res = 0) then 
HALT; 
Writeln('Here is a list of the parameters:'); 
Writeln; 
For Count := 1 to Res DO 
Writeln('Parameter #',Count:2,' :=',ParamStr (Count) ); 
End. 


Declaration 
Function 


Remark 


Example 


Declaration 
Function 
Remark 
See also 


Example 
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ParamStr function 


Declaration Function ParamStr( Index : Byte ) : String; 


Function Returns command line parameter number Index. 
Remark If Index is 0 or greater than ParamCount, ParamStr will return an empty string. 
See also ParamCount,Dos 


Example Program ParamStr Demo; { Displays 1 or more text files. } 


Uses DOS; 

Var 
DataFile : TEXT; 
Data s String: 
Count s Integer; 


Procedure DisplayFile( Number : Integer ); 
Begin 
{SI-} Reset( DataFile, ParamStr (Number) ); {$I+} 
If (IOresult <> 0) then 
Begin 
Writeln('Error while opening file: ',ParamStr(Nunber)) ; 
EXIT; 
End; 
While NOT(Eof (DataFile)) DO 
Begin 
Readin(DataFile, Data); 
Writeln (Data) ; 
End; 
Close (DataFile) ; 
End; { DisplayFile } 


Begin 
For Count := 1 to ParamCount DO 
DisplayFile( Count ); 
End. 
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Pi constant 
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Const Pi = 3.14159265358979324-. Declaration 
Returns the value of Pi. Function 
Program Pi Demo; Example 
Begin 

Writeln('Pi is: ',Pi :23:20); 
End. 
Pos function 
Neen ee a a a ea 
Function Pos( SubStr, MainStr : String ) : Byte: Declaration 
Searches MainStr for the first occurrence of SubStr. Function 


If SubStr does not exist in MainStr, the Pos function will return O,else Pos will Remark 
return the position in MainStr where SubStr was found. 


Here are some examples: Example 
Pos('HELLO', "HELLO WORLD') = 1 
Pos('CAL', 'PASCAL') = 4 
Pos('TS', 'ATARI ST") = 0 

Copy,Insert,Delete,Length 

Program Pos Demo; 

Var 
MainStr, 

SubStr : String? 
| P : Byte; 
\Begin 
Write('Enter main string: '); Readln(MainStr); 
Write ('Find what >: '); Readln(SubStr) ; 
Writeln; 


P := Pos (SubStr,MainStr) + 
If (P = 0) then 
Writeln('Not found.') 
ELSE 
Writeln('Found at position ',P); 
End. 
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Declaration 
Function 


Remark 


See also 


Example 


Pred function 


Function Pred( X ) : (Same type as parameter) 
Returns the predecessor of the parameter. 

X is an ordinal-type value. 

Succ,Dec,Inc 


Program Pred Demo; 


Begin 
Writeln(Pred(2)); { = 1 } 
End. 


Ptr function 


Function Ptr( Address : LongInt ) : Pointer; 
Converts a long integer value to a pointer type value. 


The result of Ptr is a pointer that points to the memory location specified by the 
value of Address. 


SPtr,Addr 


Program Ptr Demo; 


Uses DOS; 

Var 
SP : Pointer; 
P : “integer; 
LI : Integer; 


Begin 

Sp := Super (NIL); 

P := Ptr($4a6); 

L @= ee"; 

Sp := Super (Sp); 

Writeln(I,' disk drives are connected to your 
system. '); 
End. 
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Function Random [ ( Max : LongInt) : Longint ] | [ : Real E 
Returns a random number. 


If the optional Max parameter is specified, the result of Random will be a long 
integer in the range of 0..Max-1. 


If no parameter is given to the Random function a random real number, in the 
interval 0 <= x < 1, will be returned. 


Randomize,RandSeed 


Program Random Demo; 


Var 
Tries , 
Secret, 
Guess : Integer; 
Begin 
Randomize; 
Writeln('Guess a number.'); Writeln; 


Secret := Random(100) ; 
Tries := 0; 


Repeat 
Inc (Tries); 
Write ('Enter your guess number ‘7 lrwes, 's ")e 


Readln (Guess) ; 
If (Guess < Secret) then 
Writeln('Too low.') 
ELSE 
If (Guess > Secret) then 
Writeln('Too high.'); 
Until (Guess = Secret); 
Writeln('You guessed it in ',Tries,' attempts.'); 
End. 


Declaration 
Function 


Remark 


See also 


Example 
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Randomize procedure 


BST AE PE I EI i SPI GE SS ard ae os a SS 
Procedure Randomize; 

Initializes the random-number generator with a random value. 

Every time a program is started, the random-number generator is initialized 
with the same value (QO). The effect of this is that random numbers generated by 
a program will be the same every time the program is run. 


There are 2 ways of getting around this problem: 


1. Call Randomize to re-initialize the random-number generator, 
2. Change the value of the RandSeed variable. 


Random,RandSeed 
Program Randomize Demo; 


Begin 
{ This will be the same every time the program is run. } 
Writeln (Random(1000) ) ; 


Randomize; 

{ This will not! } 

Writeln(Random(1000) ); 
End. 


RandSeed variable 





Var RandSeed : Longint; 
RandSeed is used as the seed for the random-number generator. 


Setting RandSeed to a specific value can make the Random function return the 
same random numbers over and over again. This feature is usefulin Encryption 
and Simulation algorithms. 


Random,Randomize 
Program RandSeed Demo; 


Begin 

RandSeed := 1234; 

Writeln (Random (9999));{ This } 

RandSeed := 1234; 

Writeln (Random(9999));{ and this will always be the same. } 
End. 
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Read procedure 


Procedure Read [ ( [ var F;] v1 [,v2,..vn] ) J; Declaration 
Reads 1 or more components from file F into 1 or more variables. Function 
Read for text files: Remark 


Fis a file variable of type text. If omitted the standard file Input is assumed. 
Each of the variables (v1,v2..vn) must be of type char, integer, real or String. 


Read for typed files: 


Fis a file variable of any type except text. Each of the variables (v1,v2,vn) must 
be of the same type as the component type of file F, 


ReadLn, Write, WriteLn See also 
Program Read Demo; Example 
Uses DOS; 
Var 

TL : Texts 

C : Char; 
Begin 


{SI-} Reset (T, "TEST.TXT") ; {SI+} 
If (IOresult = 0) then 
Begin 
While NOT(Eof(T)) DO 
Begin 
Read(T,C): 
Write (C); 
End; 
Close(T); 
End 
ELSE 
Writeln('File not found.'); 
End. 
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ReadKey function 





Function ReadKey : Char; 

Reads a character from the keyboard. 

If no character is waiting to be read a key must be pressed in order to exit the 
ReadKey function. Otherwise a character is read from the systems internal 
keyboard buffer. 

KeyPressed,UpCase 


Program ReadKey Demo; 


Begin 
Repeat 
Writeln('Press SPACEBAR to stop this.'); 
Until (ReadKey = #32); 
End. 


ReadLn procedure 





Procedure ReadLn [ ( [ var F : text; ] v1 [,v2,..vn] ) ]; 
Executes the Read procedure, and then skips to the next line in the file. 


If no next line can be found in the file, the Eof(F) will retum true. If ReadLn is 
called with only a file variable as parameter, the file pointer will advance to the 
beginning of the next line in the file. 


Read, WriteLn, Write 
Program ReadLn Demo; 


Var 
BS i String: 
Begin 
Write('What is your name: '); ReadLn(s); 
End. 
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Rename procedure 


Procedure Rename( OldName, NewName : String ); 


Renames the file OldName to NewName. 
Erase 


Program Rename Demo; 


Uses DOS; 
Var 
Current, 
New > String; 
Begin 
Write('Enter current file name: '); 
Readln (Current) ; 
Write('Enter new file name e “bs 
Rename( Current, New ‘= 
End. 


Declaration 
Function 
See also 


Example 


Readin (New) ; 
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Reset procedure 


Declaration Procedure Reset( var F [; FileName:String][; BufSize:LongInt] ); 

“unction Opens or resets a file. 

Remark F is a file variable of any type. FileName specifies the name of the file on the 
disk. The optional BufSize can be specified with files of type text to determine 
the size of a buffer. 

The Reset procedure can be used in 3 different ways: 

Reset(MyFile, 'NAME.EXT’); 

Opens the file MyFile. If the file is of type text it is opened as Read Only. 
Reset(MyFile, ‘NAME.EXT", 10000); 

Opens the text file MyFile. A 10000 byte buffer is created for the file. 
Reset(MyFile); 

Positions the file pointer at the start of MyFile. MyFile must be open. 


see also ReWrite, Append 


ixample Program Reset Demo; 
Var 
Textr : Text; 
Data * String; 
Begin 
{$I-} 


Reset (TextF, 'TEST.TXT',1024); { Opens the file 
with a 1K buffer. } 
{$I+} 
If (IOresult = 0) then 
Begin 
While NOT (Eof(TextF)) DO 
Begin 
Readln(TextF,Data); Writeln (Data); 
End; 
Close (TextF); 
End 
ELSE 
Writeln('Can''t open file.'); 
End. 
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ReWrite procedure 


Procedure ReWrite( var F [; FileName : String][; BufSize : Longint] ); Declaration 
Creates or resets a file. Function 
Fis a file variable of any type. FileName specifies the name of the file on the Remark 
disk. The optional BufSize can be specified with files of type text to determine 

the size of a buffer. 

The ReWrite procedure can be used in 3 different ways: 

ReWrite(MyFile, 'NAME.EXT'); 


‘Creates and/or opens the file MyFile. If the file is of type text it is opened as 
Write Only. 


ReWrite(MyFile, 'NAME.EXT’, 10000); 
Creates and/or opens the text file MyFile. A 10000 byte buffer is created for the 
file. 


ReWrite(MyFile); 


Positions the file pointer at the start of MyFile. MyFile must be open. 


Reset,Append See also 
Program ReWrite Demo; Example 
Var 

Data, 

Name : String; 

Out : Text; 
Begin 


Write('Create what file: '); Readln (Name) ; 
{SI-} ReWrite(Out,Name); {$I+} 
If (IOresult = 0) then 
Begin 
Repeat 
Write ("Enter data: '); Readln (Data); 
Writeln(Out,Data) ; 


Until (Data = '"'); 
Close (Out) ; 
End 
ELSE 


Writeln('Could not create ',Name); 
End. 
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RmDir procedure 


LSE PLP RT ES 
Procedure RmDir( Dir : DirStr ); 
Removes an existing directory. 


ChDir,MkDir,GetDir,Dos 


Program RmDir Demo; 
Uses DOS; 
Begin 

RmDir ('MYDIR"'); 
End. 


Round function 


Function Round( N : Real ) : Longint; 
Rounds a real-type value to an integer-type value. 
Int, Trunc,Abs 


Program Round Demo; 
Var 
L : LongInt; 
Begin 
IL := ROUND(1.40); { 
L := ROUND(1.50); { 
End. 


NO 
ey 


L, = 
ly = 


RunFromMemory function 


ESE TT Men iE Es a ee OE ed 
Function RunFromMemory : Boolean; 
Returms True if the program is running from within the editor. 


If you are running the compiler/editor from within a debugger, the 
RunFromMemory function will probably return an incorrect result. 


System2 


Program RunFromMemory Demo; 
Begin 

Write('You are'); 

Case RunFromMemory OF 


False Write(' NOT'); 
End; 
Writeln(' running from within the HIDE.'); 


End. 


R2-56 Reference 


seek procedure 
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Procedure Seek( var F: Rec : LonglInt ); Declaration 
Moves the file pointer to a specific record in file F, Function 


Fisa file variable (Typed or Untyped) that has been opened. Rec is the number Remark 
of the record to seek to. The number of the first record in a file is 0. 


FilePos,FileSize See also 


SeekEof function 


Function SeekEof [ ( var F : text ) ] : Boolean; Declaration 
As Eof, but skips over all white spaces. Function 


Fis a file variable of type text, that has been opened. IfF is omitted the standard Remark 
file Input is assumed. 


Eof See also 
Program SeekEof Demo; Example 
Var 

i ¢ Texts 


X : Integer; 
Begin 
ReWrite (T,'SPACES.DTA") ; { Make a file with lots 
of spaces. } 
For X := 1 to 1000 Do 
Write (T, #32); 
Reset (T) >; { Go to start of file. } 


If (SeekEof(T)) then 
Writeln('File contains nothing or only 
Spaces.') 
ELSE 
Writeln('The file contains data. ?) 5 


Close(T); Erase ('SPACES.DTA'); 
End. 
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Declaration 
Function 
Remark 
See also 


Example 


SeekEolIn function 


Function SeekEoln [ ( var F : text )] : Boolean; 
As Eoln, but skips over all white spaces. 


Fis a file variable of type text, that has been opened. If Fis omitted the standard 
file Input is assumed. 


Eoln 


Program SeekEoln Demo; 
Uses DOS; 
Var 
E } TExty 
Begin 
Reset, “PEMP TXT "Jz 
If (SeekEoln(F)) then 
Writeln('First line in file is empty.') 
ELSE 
Writeln('There is data on the first line.'); 
Close (F); 
End. 


SetDate procedure 


Procedure SetDate( Year, Month, Day : Integer ); 

Sets the current date in the operating system. 

The legal ranges are: Year 1980..2099, Month 1..12, Day L351 
GetDate,SetTime,Dos 


Program SetDate Demo; 


Uses DOS; 
Var 
Year,Month,Day,Dow : Integer; 
Begin 
Write('Enter Year '); Readln (Year); 
Write('Enter Month : '); Readln(Month); 
a 


Write('Enter Day 
SetDate (Year,Month, Day) ; 
GetDate (Year, Month, Day, Dow) ; 
Writeln('Date has been set to:'); 


; Readin (Day) ; 


Writeln('Year = ',Year); 

Writeln('Month = ',Month); 

Writeln('Day = ',Day); 
End. 
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setDrive procedure 


Procedure SetDrive( Drive : Byte ); Declaration 
Sets the active disk drive. Function 
The drive numbers are: 0 = Drive A:, 1 = Drive B:, etc. Remark 
GetDrive,ChDir,Dos See also 
Program SetDrive Demo; Example 
Uses DOS; 
Var 
Go : Integer; 

Begin 

Write('Enter drive number: '); Readln (Go); 

SetDrive (Go); 
End. 


SetFAttr procedure 


Procedure SetFAttr( Fil : PathStr; Attr : integer ): Declaration 
Sets the attributes of a file. Function 
The file attributes and PathStr are declared in the DOS unit: Remark 
Const 

ReadOnly = $01; 

Hidden = $02; 

Sysfile = $04; 

VolumeID = $08; 

Directory = $10; 

Archive = $20; 

AnyFile = $3F; 
Type 

PathStr = String[79]; 

GetFAttr,Dos See also 
Program SetFAttr Demo; Example 
Uses DOS; 
Var 


Name : PathStr; 
Begin 
Write('Hide what file?: '); 
ReadLn (Name) ; 
SetFAttr( Name , Hidden ); 
End. 
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SetFTime procedure 


Procedure SetFTime( var F; Time : Longlnt ); 
Sets the time and date of a file. 


The F parameter is a file variable (Typed, Untyped or Text) that has been either 
Reset, Rewnitten or Appended 


The Time parameter is along integer, that has previously been packed using the 
PackTime procedure. 


GetFTime,PackTime,Reset,ReWrite,Append,DosError,Dos 


Program SetFTime Demo; 


Uses DOS; 

Var 
DiSkEride: : TEXT: 
DatTim : DateTime; 


PackData : LongInt; 
Begin 
{ST=} Reset (DiskFile,'TEST.TXT'); {$1I+} 
If (IOresult = 0) then 
Begin 
With DatTim DO 
Begin 
Write('Enter Year 
Write('Enter Month 
Write('Enter Day 
Write('Enter Hour 
Write('Enter Minute 
Write('Enter Second 
End; 
PackTime (DatTim, PackData); 
SetFTime (DiskFile, PackData) ; 
Close (DiskFile) ; 
Writeln('Done.'); 
End 
ELSE 
Writeln('Error while opening file.'); 
End. 


cond 


Readln(Year) ; 
Readiln (Month) ; 
Readln (Day); 
Readln(Hour) ; 
Readin(Min); 

; Readln(Sec); 


= -_- = 
“es se “e ‘“e “es 
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setTime procedure 
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Procedure SetTime( Hour, Min, Sec, Sec100 : Integer ): Declaration 
Sets the current time in the operating system. Function 
The legal ranges of Hour, Min, Sec are: Remark 

Hour ae 

Min O09 

Sec O55 59 


The Sec100 parameter, which has been implemented for compatibility with 
Turbo Pascal, is not supported by the operating system, and it will therefore be 
ignored by the SetTime procedure. 


GetTime,SetDate,Dos See also 


Program SetTime Demo; Example 
Uses DOS; 


Var 
Hour,Minute,Second,Hundred : Integer; 
Begin 
Write('Enter Hours : '); Readln(Hour); 
Write('Enter Minutes : '); Readln(Minute); 
Write ('Enter Seconds : '); Readln(Second); 
SetTime (Hour,Minute, Second, Hundred) ; 
GetTime (Hour, Minute, Second, Hundred) ; 
Writeln('Time has been set to:'); 


Writeln('Hours = ") Hour): 

Writeln('Minutes = ',Minute); 

Writeln('Seconds = ',Second); 
End. 
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SetVerify procedure 





Procedure SetVerify( Verify : Boolean ); 
Sets the value of the disk verify flag. 


When verify is on (True), TOS will check to see if data written to the disk, has 
been stored properly. This is done by trying to read the data just written. 


When off (False), TOS will simply write the data. 


Setting the verify flag to False will increase the speed at which data is written 
to the disk. 


GetVerify,Dos 


Program SetVerify Demo; 


Uses DOS; 
Var 
State : Boolean; 
Begin 
GetVerify( State ); { Read current status } 
State := NOT(State) ; { Reverse the status } 
SetVerify( State ); { Set the new status } 
End. 


Sin function 


Function Sin( R) : Real; 

Returns the sine of the parameter. 

R is a real-type expression. R is assumed to represent an angle in radians. 
Cos,Trunc, ValidReal 


Program Sin Demo; 


Var 
R : Real; 
Begin 
R := SIN(20) ; 
End. 
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SizeOf function 
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Function SizeOf( var Object ) : Integer: Declaration 
Returns the size of an object. Function 


Object can be any variable or type. If the object has been word-aligned, the filler Remark 
byte(s) are also included in the result that SizeOf returns. 


FillChar,Move See also 
Program SizeOf Demo; Example 


Var 

; Byte; 

: Integer; 
: Longint; 
: Real; 

: Shoe 


NYWDOH Ww 


Begin 
Writeln('The size of B is: ',SizeOf(b)); { notice the 
alignment byte. } 
Writeln('The size of I is: ',SizeOf(i)); 
Writeln('The size of L is: ',SizeOf(l)); 
) 
) 


Cd 


Writeln('The size of R is: ',SizeOf (r) 
Writeln('The size of S is: ',SizeOf(s) 
End. 


. 
? 


SPtr function 
LS Bee RecA NANT ES IN SPs AWE in AABN WON CTT TN SAN SORES SUE CTP AE RT TTA OS ESS SIN aR RET ws Ne OT | 


Function SPtr : Longint; Declaration 
Returns the current value of the stack pointer. Function 
Ptr See also 


Program SPtr Demo; Example 
Begin 


Writeln('Value of stack pointer: ',SPtr); 
End. 
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Sqr function 


Function Sar( N ) : (Same type as parameter) 
Returns the square of N. 


N is an integer-type or real-type expression. The result of Sqr(X) is equal to 
5 Sigs, S 


Sqrt, ValidReal 


Program Sqr Demo; 


Var 
R : Real; 
Begin 
R := SQR(10); 
End. 


Sart function 


Function Sart( N ) : Real; 

Returns the square root of N. 

N is an integer-type or real-type expression. 
Sqr, ValidReal 


Program Sqrt Demo; 


Var 
R : Real; 
Begin 
R := SQRT(4); 
End. 
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str procedure 
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Procedure Str( x [:width [:decimals] ]; var Res : String ); 
Converts a numeric value to a string. 


By specifying Width and Decimals it is possible to make Res look like the 
output generated by Write and WriteLn. 


Val,Copy 


Program Str Demo; 


Var 
| R : Real; 
S ¢ Strings 
Begin 
R := 1234.5678; 
Writeln(R :10:4); 
SEEK § L084, §)% 
Writeln(S); 
End. 


Succ function 
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Function Succ( X ) : (Same type as parameter) 
Retums the successor of the parameter. 

X is an ordinal-type value. 

Pred,Inc,Dec 


Program Succ Demo; 


‘Begin 
Writeln(Succ(1)); { = 2 } 
End. 


Declaration 
Function 
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See also 


Example 
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Super function 


Function( P : Pointer ) : Pointer; 
Switches between User mode and Supervisor mode. 


If P is NIL: The system switches to Supervisor mode, returning the value of the 
User stack pointer. 

If not:The system switches back to User mode, setting the User stack pointer 
to P's value. The retumed value is the value of the Supervisor stack pointer. 


Dos 
Program Super Demo; 


Uses DOS; 

Var 
SP : Pointer; { Used to save stack pointer. } 
FF © “Lnteger; 


B : Byte; 
Begin 
Sp := Super (NIL); { Enter Supervisor mode. } 
P := Ptr($440); 
B = Py 
Sp := Super (Sp); { Exit Supervisor mode. } 


Write('Floppy seek rate is: '); 
Case B AND 3 OF 
O : Write(6); 
lL © WeLte (12) 
2 : Write(2); 
3 : Write(3,' (default)'); 
End; 
Writeln(' ms.'); 
End. 


Swap function 


function Swap( N : Integer ) : Integer; 


Swaps the high and low bytes in N. 


Swap Word,Hi,Lo 
Program Swap Demo; 
Var 
X : Integer; 
Begin 
X := Swap($1234); { = $3412 } 
End. 
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swapWord function 





Function SwapWord( N : LonglInt ) : Longint; 
Swaps the high and low words in N. 
Swap,HiWord,LoWord 


Program SwapWord Demo; 


Var 
“a * Longint> 
Begin 
X := SwapWord($12345678); { = $56781234 } 
End. 


TosVersion function 


Function TosVersion : Integer; 
Returns the version number of the operating system. 


The primary version number is in the low part, and the secondary version 
number is in the high part of the returned value. 


Hi,Lo,Dos 
Program TosVersion Demo; 
Uses DOS; 


Var 
Res : Integer; 
Begin 
Res := TosVersion; 
Writeln('TOS version number is: ',LO(Res),'.',HI(Res)); 
End. 
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Function Trunc( R : Real ) : Longint; 
Truncates a real-type value to an integer-type value. 
Trunc returns the value of R rounded towards 0. 


Int,Round,Abs 


Program Trunc Demo; 


Var 
Lb #« Longines 
Begin 
L := TRUNC (1234.5678) ; 
End. 


UnPackTime procedure 


CEE INE ee ep eR aes Ne oe ee SET EE) 
Procedure UnPackTime( Time : LongInt; var Result : DateTime ); 


Unpacks a 4-byte long integer to a 12-byte DateTime record. 
The format of the packed long integer is: 


bits O- 4 seconds (divided by 2) 
- 5 - 10 minutes 

= La, ~ 15 Khours 

= 16 — 20 day of month 

= 2i.=— 2& month 

= 25 —~ 31, Years (since 1980) 


The format of the returned DateTime record is: 


Type 
DateTime = Record 
Year ; integer; 
Month : Integer; 
Day : Integer; 
Hour : Integer; 
Min : Integer; 
Sec : LAbegqer;: 
End; 
PackTime 
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UpCase function 
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Function UpCase( Ch : Char ) : Char; 

Converts the letter Ch to upper case. 

UpCase will only return a result different from Ch, if Chisin the ran eeol a..z. 
ReadKey 


Program UpCase Demo; 


Var 
GS © Chars 
/Begin 
Repeat 
Write('Enter a letter. '); 
C := ReadKey; 
Writeln('You pressed ', UpCase(C)); 
Until (C = #13); 
End. 


Val procedure 
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Procedure Val( S : String; var R; var ErrorPos : Integer 1; 
Converts a string to a numeric variable. 


R is an integer-type or real-type variable. Upon return ErrorPos holds the 
position of the first character in S that could not be converted. 


Str,Copy 


Program Val Demo; 


| Var 
R ; Real; 
S i Serings 
Error : Integer; 
Begin 


Write('Enter a number: '); Readin(S); 
Val(S,R,Error) ; 
If (Error = 0) then 
Writeln ('OK') 
ELSE 
Writeln('Error in number at position ‘Error, § 1 ie 
End. 
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Function 
Remark 
See also 


Example 


Declaration 
Function 


Remark 


See also 


Example 


Reference R2-69 


Declaration 
Function 
Remark 
See also 


Example 


Declaration 
Function 


Remark 


See also 


Declaration 
Function 


Remark 


See also 


ValidReal function 


Function ValidReal( R ) : Boolean; 
Returns true if R is a valid real value. 
Use this function to test the results of calculations done with real-type values. 


Program ValidReal Demo; 


Var 
R : Real; 
Begin 
R := Ln(0); { Cannot be done. } 
If (ValidReal(R)) then 
Writeln('OK') 
ELSE 
Writeln(*Error in. calculation. "); 
End. 


WhereX function 





Function WherexX : Integer; 
Returns the column in which the cursor is currently located. 


On a standard monochrome monitor, the range of the returned result will be 
1..80. 


Where Y,Gotox Y 


WhereY function 





Function WhereY : Integer; 
Returns the line on which the cursor is currently located. 


On a standard monochrome monitor, the range of the returned result will be 
1.25. 


WherexX,GotoxX Y 
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Write procedure 


Procedure Write [ ( [ var F; ] v1 [:Width :Deci] [,v2,..vn] ) }; Declaration 
Writes 1 or more components to file F. Function 


Write for text files:F is a file variable of type text. If omitted the standard file Remark 
Output is assumed. Each of the components to write must be of type char, 

integer, real, string or boolean. 

Each of the components can be formatted using the two format parameters 

Width and Deci. Width specifies the minimum len gth of the component. Deci 

specifies the number of decimals a real component are to have. 

Write for typed files:F is a file variable of any type except text. Each of the 
components (v1,v2,vn) must be of the same type as the comp. type of file F, 


‘ WriteLn,Read,ReadLn See also 
Program Write Demo; Example 
Var 

R : Real; 
X : Byte; 
Begin 


R := 1234.5678; 
For X := 20 to 40 DO 
Begin 
Write(R :X:5); Writeln; 
End; 
End. 


WriteLn procedure 
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Procedure WriteLn [([var F : text;] v1 [:Width ‘Deci] [,v2,..vn])]; Declaration 


Executes the Write procedure, and then writes an end-of-line marker to the file. Function 


Writeln can only be used on file variables of type text. Remark 
Write,ReadLn,Read See also 
Program WriteLn Demo; Example 
Var 

R : Real; 

X : Byte; 
Begin 


R t= 1234. 5678s 
For X := 10 to 30 DO 
WriteLn(R :X:X); 
End. 
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Command Line 


Command Line Compiler 

The HighSpeed Pascal compiler can also be used in a command line system, by using 
the HSPC command line version. It takes all commands from the command line and 
from a configuration file “HSPC.CFG”. You call it as: 

HSPC {Option} FileName { Option } 


The call “HSPC -$R- Clock” will make HSPC compile the file Clock.Pas with the 
range check switch off. 


The call “HSPC” alone will display a help screen. 
Each option starts with a “/” or a “-”, both are accepted. 


The options are as follows: 


-~SR+ Range checking 

-~SS+ Stack checking 

-SMxxx Memory allocation parameters 
-SF+ Force 32 bit calls 

-SD+ Debug information 

=-SI- No I/O checking (default on) 
~SV- No var-string checking (default on) 
an Warseae Find runtime error 

~B Build all units 

-M Make modified units 

=Q Quiet compilation 


—-Dxxx Define conditionals 
—-EXxxx PRG & UNI directory 
=x Include directories 
=OR Object directories 

=e Unit directories 
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$Switch Option 
The -$ or /$ option allows you to enable or disable compiler directives, just as if they 
were entered into the first line of your program. 


More than one directive can be entered at the same time by separating each directive 
with acomma. Do not use any spaces. The -$M directive will need 4 numbers after the 
M. These 4 numbers must be separated by commas. The numbers represents the number 
of KiloBytes wanted for stack, heap min/max and free to TOS (DOS). 


Example: 
HSPC -S$R-,S+,M5,10,10,20 DEMO 


Look in the Appendix “Compiler Directives” for a description of all compiler direc- 
tives. 


Directory Options 
Three of the directory lists entered cantake more than one path. They are then separated 
by a semi-colon. 


The -E option defines where the generated units and programs goes. This allows you 
to keep all units together someplace far away or on a memory disk. Only one path can 
be entered. 


The -I option defines a set of search paths used to search for include files named in $I 
directives in the source. 


The -O option defines a set of search paths used to search for object files named in $L 
directives in the source. 


The -U option defines a set of search paths used to search for object files units named 
in the USES clause in the source. If the .UNI file is also found here, it is also written 
here again, not regarding the -E option. 


Mode Options 

The -M option forces the compiler to check all file dates to see if any units, include files 
or object files used has been changed. Each unit that that have been changed will be 
recompiled. 


The -B option forces the compiler to re-compile all units used, if the source can be 
found. 


If -M or -B is not used, the compiler does not check anything, it just compiles the file 
requested. 


The -Fxxx option will start the compiler in find-mode. 
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The -Q option will hide any output to the screen exept for error messages. 


The -Dxxx option defines conditional compiler variables. They are used for source 
control, With it youcan make part of yourcode be compiled dependent on which flags 
(names) you activate, 


Configuration File 

The file HSPC.CFG contains initial compiler definitions, that you do not want to enter 
each time you start HSPC. It is simply a number of options entered line by line. These 
options are read before the command line is parsed, allowin g you to define your own 
default settings. 
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Seek procedure 
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Procedure Seek( var F; Rec : Longint ); Declaration 
Moves the file pointer to a specific record in file F. Function 


Fisa file variable (Typed or Untyped) that has been opened. Rec is thenumber, Remark 
of the record to seek to. The number of the first record in a file is 0. 


FilePos,FileSize See also 


SeekEof function 
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Function SeekEof [ ( var F : text ) ] : Boolean; Declarati( 
As Eof, but skips over all white spaces. Function 


Fis a file variable of type text, that has been opened. If Fis omitted the standard Remark 
file Input is assumed. 


Eof See also 
Program SeekEof Demo; Example 
Var 

L ¢ Text? 


X : Integer; 
Begin 
ReWrite(T, 'SPACES.DTA'); { Make a file with lots 
of spaces. } 
For + t= 14 to 1000 DO 
Write (T, #32); 
Reset (T) ; { Go to start of file. } 


If (SeekEof(T)) then 
Writeln('File contains nothing or only 
spaces.') 
ELSE 
Writeln('The file contains data.'); 


Close(T); Erase({'SPACES.DTA"')+; 
End. 
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Menu 


Desk: 
Information about copyright and compiler version. 


File: 

Loading existing files .. 

Creating new files .. 

Saving the file .. 

Printing a file .. 

- in the editor 

Quitting High-Speed 

Execute a program outside High-Speed 


Edit: 
Cut/Copy/Paste text 
Indent and outdent text 


Search: 
Find and replace text. 
Toggle between windows 


Compile: 

Compile Make or Build a program. 

Set the destination of the object code (disk or memory). 
Find a run-time error. 

\ Set the primary file. 

Get information about the current source file. 


Options: 

Contains general setting that control how the integrated environment works: 
General settings. 

Compiler settings, 

Linker settings. 

Run settings. 

Save all options to disk. 

Also contains the help system. 
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FILE 


New (AN) 
Opens a new editor window with an empty file. This file has noname, you name it 
when saving it to disk. 


Open (4O) 
Opens a window with the file you select from the file selector box. 


Open Selection (4T) 
If you have selected (inverted) a file name in the editor window, you can open this 
file with “Open Selection”. 


Close (4U) 
Close the active window. If the texthas been changed, you will be asked if you want 
to save it. 


Save (4S) 
Use this command to save the text in the active window. If your are saving a “New” 
window you will be asked to name it. 


Save As... 
This command save the text in the active window, but you will be asked to rename it. 


Revert to saved 
This command will replace the version of you text in the editor with the latest copy 
you saved to disk. 


Print 
Use this command to print the text in the active window to the printer. 


Print Selection (“P) 
If you have selected (inverted) some text in the editor window, this command will 
print the selection to the printer. 


Execute 
Leaves the compiler temporarily, while running another program. 


Quit (4Q) 
Quits the compiler and close all open windows, if your text in the window(s) has 
been changed you will be asked if you want to save it/them. 
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EDIT 


Undo ( [UNDO] ) 
This command reverts the latest command in the editor. 
For example if you have deleted some text “Undo” will bring it back. 


Cut (4X) 

Cuta selected part of the text toa “clipboard”. With the command EDIT/Paste you 
can insert the text from the clipboard to the editor. The text will be inserted in the 
editor window (at the cursor position). 


Copy (4C) 

| This command copies a selected part of the text to a “clipboard”. With the command 
EDIT/Paste you can insert the text from the clipboard to the editor. The text will be 
inserted in the editor window (at the cursor position), 


Paste (4V) 
With this command you can copy text from the clipboard to the editor window (at 
the cursor position), 


Select All 

This command will select (invert) all text in the active editor window. 

With this command youcan select all text ione window, and with EDIT/Copy copy 
it to the clipboard, move to another window and with the EDIT/Paste command copy 
it into this window. 


Indent (4K) 
With this command you can move a selected part of the text one position to the right. 


Outdent (4J) 
With this command you can move a selected part of the text one position to the left. 


Get info (41) 
This command gives you information about the size of the text in the active window 
(bytes and number of lines). It also gives you information about the memory size. 


User Screen (ESC) 
Displays the program output screen. 
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SEARCH 


Find (AF) 
With this command you can search for strings in your textfile. 


“Find What”: 
Here you write the string you want to search for. 


Search options: 

“Words Only”: 

Youcan search for “Words Only”, which means that the string (“Find What:”) you 
are searching for should be a word for it self, otherwise the search string could be a 
substring (part of another word). 


“Case Sensitive”: 

You can make this search case sensitive. Which means that the string you are 
searching for should contain exactly the same upper- and 

lowercase letter you write in “Find What:”. 


“From Top”: 
If you want to start the search from the top of the text, you click here, otherwise click 
“Ok” the search to start from cursor position. 


Find Selection (‘F) 
With this command you can search for a selected (inverted) string/word from your 
text. 


Find Next 
This command will repeat the options given in the “Find” command. 


Replace (4A) 
This command works like the “Find” command, and furthermore you can replace 
the string/words you find with another string/word. 


“Change To”: 
Which string/word should the words/strings found be replaced with. 


“Replace all without asking”: 
Shall the replacement be done automatically, or shall the editor ask you everything 
before it replaces. 


Goto line (“L) 

This command takes you to the line number you write in the “Goto line:” box. 
For example “Goto line”: 1 will take you to the top of the window (as 

the “Home” key). The Goto line box default show the actual line. 
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Find Cursor: 

This command will find the place in the text where the cursor is placed. 

For exampleif you have “scrolled” the cursor out off the visible screen, “Find cursor” 
will position the screen , where the cursor is placed, back. 


Cycle Windows: 
This command toggles between the open windows (“jumps from window to win- 
dow”). 


User screen: 

Once you’re back in the HIDE after executing the program, you can view the programs 

output by choosing the SEARCH/User screen (Esc) command. By pressing any key 
you return to HIDE. 
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COMPILE 


© Means hold down the "Alt" button and activate "X". 


Run (QR) 

This command invokes the compiler (with the options given in OPTIONS/Compiler 
and OPTIONS /linker) on the file in the active editor window (unless Primary file 
option active). Then it runs your program with the options given inthe OPTIONS/Run. 
If an error occurs, you are automatically placed in the editor window at the error. 


Compile (QC) 

Compiles the file in the active window (unless Primary file option active) , after 
compilation you can open the “Get Info” window (COMPILE/Get Info) to display 
compilation information: Code file name, Code size (code/data), whether the program 
compiled successfully, and available memory. 

If an error occurs, you are automatically placed in the editor window at the error. 


Make (QM) 

This command invokes the compilers built-in make. 

If a primary file has been named (COMPILE/Primary File) that file is compiled. 
Otherwise the file in the active window is compiled. 

The compiler checks all files upon which the file being compiled depends. If any 
has been changed they are recompiled. 


Build All (QB) 
This command works like “Make” - except “Build” recompiles all depending files, 
whether they are changed or not. 


Find Error (QE) 

Finds the location of a run-time error. 

Whena run-time erroroccurs under TOS, the offsetaddress in memory where it occurred 
is given. When you return to HIDE, HighSpeed locates the error for you, using this 
command. If run-time errors occurs when running within HIDE, the default value 
for the error address are set automatically. 
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Destination 

Use this option to specify whether the executable code will be stored on: 

“Disk” (as an .PRG file) or in “Memory” (and therefore lost when you exit the 
compiler), 

Note that any unit recompiled during a “Make” or “Build All” have their .UNI files 
updated on disk. 

If “Destination” is set to Disk, then an .PRG file is created. The .PRG file is placed 
in the same folder as the source file, or at the place specified in OPTION/Compiler/ 
Program. 

Primary File: 

This option specify which .PAS file will be compiled when you use COMPILE/ 
Make, COMPILE/Build All or COMPILE/Compile. 

This option is used when working witha program which uses several units or include 
- files. Nomatter which file youhave been editing COMPILE/Make/Build All/Compile 
will always operate on the file specified in “Primary File”. 


Get info (QN 


This command gives you information about the compiled file the code size (code/ 
data) and Total/Free memory. And whether the file has been compiled or not. 
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OPTIONS 


Help ("Help") 

The compiler provides context sensitive help at the touch of the (Help) key or by choosing 
the command OPTIONS/Help. 

This will open ahelp window containing help to the function- or the item- or the word 
in your source code selected. Any help window can contain one or more underscored 
keywords which you can double-click (or select and press the Help key), this opens 
the help window containing help to the keyword. Pressing the (Help) key again will 
return to the main help window. 

Pressing the Undo key closes all the open help windows. 


General (QG) 

“Locate Resident Units”: 

Here you write the path where the compiler should search for the unit library file *.LIB 
(if any). 

The compiler has to kind of unit files : *, UNI and *.LIB. When you compile a unit 
the resulting object code is put in a *.UNI file. With the program LIBMAKER.PRG 
you can join several units into a library. 


“Tab width”: 
Sets the tab size in the editor (1-8). 


“Auto indent”: 

If on, the cursor returns to the starting column of the previous line 
when you press Return. 

If off, the cursor always returns to column 1. 


“Autosave Configuration”: 
If on, all configuration settings will be saved when quitting the compiler. 


“Autosave Files”: 
If on, the file in the editor will be saved automatically before running. 


Compiler (QK) 
These options can also be specified directly in your source code using compiler di- 
rectives, “$ directives” (See “Compiler Directives”). 


“Range check” {$R} 

If on, the compiler generates code to check that array-/string subscripts are within 
bounds. 

It also checks that assignments to scalar-type variables do not exceed their defined 
ranges. 

If check failure, the program halts with a run-time error. 

If off, no such check is done. 
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“Stack check” {$S} 

If on, the compiler generates code to check that stack space is available for local 
variables, before each call to a procedure or function. If check failure, the program 
halts with a run-time error, 

If off, no such check is done. 


User break, Shift-Shift 

Whenever a range or stack check is performed in HIDE, the keyboard is also tested. 
If the user at that moment presses both shift keys simultaneously, then the range or 
stack check fails with a runtime error 58. Remember that you may have to have an exit 
procedure installed in your program in order to properly handle these unexpected 
breaks. Otherwise you may end up with a locked GEM system. 


) The Shift-Shift system is not active in stand alone programs. 


The $R+ and $S+ checks does make your program a bit slower, but you should only 
use these features when developing your programs. 


“IO Check” {$I} 

If on, the compiler generates code to check for I/O errors after every I/O call. If check 
failure, the program halts with a run-time error. 

If off, no such check is done. 

{Se also the system function IOResult} 


“Use 32 bit fixup” {$F} 


“Keep names for debugger” {$D} 
Add symbols to *.PRG files for later debugging. 


“Strict string checking” {$V} 

If on, the compiler compares the declared type of a “Var” type string parameter with 
the type of the actual parameter being passed. If check failure, a compiler error occurs. 
_ If off, no such compare is done. 


“$Define” {$Define xxxxx} 

With defined symbols you can perform compilation with conditional directives in 
the source code. Define a symbol by typing it’sname here, multiple symbols are 
separated by “;”, 

If for example the symbol “Test” is defined, the compiler will generate 

the code for the “Writeln” in the following example: 


{SIFDEF Test} 


Writeln(‘This is a test’); 
{ SENDIF} 
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Search Path: 

“Units 

The path where the compiler finds the unit file(s). 
Multiple directories are separated by “;”. 


“Program”: 

Here the program stores *.PRG and *.UNI files. 

If blank, the files are stored in the directory where the source is found. 

Note that the path specified here also ought to be specified under “Units” for the 
compiler to find the compiled units (*. UND) again. 


“Include”: 
The path where the compiler can find the include file(s) {$I filename}. 
Multiple directories are separated by “;”. 


“Object”: 

The path where the compiler finds assembly language routines (*.OBJ files). 
When the compiler reach a {L filename} directive it looks in the current directory, 
if not found, it looks in the “Object” directory. 


66,99 


Multiple directories are separated by “;”. 


Linker (QL) 
“$F (Use 32 bit fixup)”: 
If on, this allows you to make big programs. 


“$D (Add symbols to the program file)”: 
If on, this add symbols to *.PRG file for later debugging. 


“$M: Stack”: 
Specifies (in Kbytes) the size of the stack segment. 


“$M: Heap minimum”: 

Specifies (in Kbytes) the minimum required heap size. 

“$M: Heap maximum”: 

Specifies (in Kbytes) the maximum amount of memory to allocate to the heap. 


Note, this value must be greater than or equal to the “Heap minimum”. 


“$M: Free to DOS”: 
Default 15 Kb, this enable GEM etc. to work. 


“Postfix for program”: 
Default *.PRG, if you want to compile to a Desk ACCessory, write “ACC” here. 
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Run (QJ) 


“Make pause after program run”: 
Ifon, the program pauses at the last screen from the program. (Se also EDIT/User Screen). 


“Memory for program”: 

Specifies (in Kbyte) how much memory you want to leave for the programs to be 
executed by the command FILE/Execute. 

Note, this memory will not be reclaimed by the compiler. 


Moving around 


Moving your cursor with the arrow keys. 

“Shift” “->” will take you to the end of a line. 

“Shift” “<-” will take you to the start of a line. 
“Backspace” deletes the character to the left of the cursor. 
“Delete” deletes the character to the right of the cursor. 
“Shift” “Up Arrow” will move a page up 

“Shift” “Down Arrow” will move a page down. 

“Home” will move you to the start of the text. 

“Shift” “Home” will move you to the end of the text. 
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HighSpeed versus other 
Pascal Compilers 


HighSpeed is not exactly equal to other compilers. There will always be some 
differences, some minor and some major. 

The American National Standard (ANS) Institute has defined the standard for Pascal. 
HighSpeed Pascal will be compared against this one, Turbo Pascal and ST Pascal 
(Personal Pascal). The comparison is not complete as far as the minor details concerns. 


HighSpeed Pascal versus ST- and Personal Pascal 

The unit named STPascal implements some of the features special to ST Pascal. Here 
are some of the ST Pascal types named using underscore and some graphics and GEM 
routines. 


The IOResult and the $I- system is implemented differently in ST Pascal. 
The $M directive in HighSpeed tells the compiler all about the memory layout. 


HighSpeed Pascal has only the standard loop constructions as REPEAT, FOR and 
WHILE. ST Pascal implements a non standard loop construction. 

Please read the file STPASCAL.DOC in the UNIT directory on the HighSpeed disk, 
on how to compile STPascal code with HighSpeed. 


HighSpeed Pascal versus Turbo Pascal for the PC 

Notice one important thing: HighSpeed Pascal is running on a 68000 micro processor, 
while Turbo Pascal is running on a 80x86 processor. Both compilers uses the CPU’s 
default way of saving data in memory. 


The 68000 does not allow reads and writes at odd addresses if the element size is not 
| a byte. Therefore all variables using more space than a byte is allocated on even 
addresses. Furthermore the 68000 does save words (and others) in anon reversed order 
in memory, where Turbo Pascal uses the ’86 reversed mode. Every word written to a 
typed file using Turbo Pascal, must then be read in HighSpeed Pascal by anormal read, 
followed by a N:=Swap(N) instruction. (This could also have been done in Turbo 
Pascal before the writing). Long integers must be swapped by using both SwapWord, 
Swap and maybe HiWord instructions. 


The word alignment does make record structures look different when made with either 
HighSpeed or Turbo, even if Turbo uses the $A+ option for word alignments. In Turbo 
Pascal a string[2] only uses 3 bytes, while a string in HighSpeed always uses an even 
number of bytes, and that makes a string[2] use 4 bytes. All strings of length 1 to 3 can 
be moved quickly with a single MOVE assembly instruction. 
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HighSpeed allows BlockRead and BlockWrite on all typed files in additions to 
untyped files. The parameters given to them is always a byte count. 

Reset and Rewrite does not take any block size parameter. 

The use of NIL pointers is not checked in Turbo Pascal. The Atari computer helps 
HighSpeed here, because it stops a program when it tries to use memory at address 
zero, where a NIL pointer is physically pointing. Therefore HighSpeed Pascal also 
checks for the use of NIL pointers. Likewise will the use of uninitialized pointers also 
sometimes stop the program with a bus or an address error. 


HighSpeed Pascal versus ANS Pascal 
HighSpeed Pascal cannot tell you if any non standard features are used, 


The Put and Get system in ANS Pascal is not implemented. 


Procedure and function does not take Procedure and Function parameters in HighSpeed 
Pascal. 


The parameter to New and Dispose cannot specify which variant part to use. You may 
use GetMem and FreeMem instead. 


Pack and Unpack is not implemented. 
The @ symbol is an operator in HighSpeed, and the same as the “in ANS Pascal. 


When reading a char variable when eoln is true, HighSpeed returns a Carriage Return 
character where ANS Pascal would return a space. 


Extensions to ANS Pascal 
HighSpeed Pascal cannot tell you if any non standard features are used. 


HighSpeed implements strings with dynamic length, and routines to operate on them. 
HighSpeed Pascal implements the types ShortInt, LongInt, Single and Double. 
HighSpeed implements the unit way of making separate programming. 

Labels can be both identifiers and the normal digit sequence. 

Integer constants can be written in hexadecimal format when preceded with a $. 


All character values can be written in character and string constants when preceded 
with a # ora“. A decimal or hex value can be written after the #. 


The sequence of Label, Const, Var, Type, Procedure and Function declarations can be 
in any order. 
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Three new logical operators: xor, shl and shr. The logical operators also work as 
bitwise operators. 


The @ operator works like the Addr function. In ANS Pascal @ and “is the same. 
HighSpeed Pascal implements value and variable typecast. 


An ELSE statement is allowed as the default case ina CASE construction. There is no 
default in ANS Pascal. 


A variable formal parameter in a procedure/function can be typeless. 


The list of reserved words can be seen in the WordSymbol list in chapter Language 
Elements, Reserved Words. 
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Inside HighSpeed 


Here is the information needed for hackers and those who need a bit more specific 
information on the intemal workings of HighSpeed Pascal. 
All variables mentioned in this chapter are located in the System unit. 


Memory Layout 

The memory layout ofa loaded user program looks like thatnormally used on the Atari. 
The sequence of memory blocks are from bottom and up this: 

; BasePage, 256 bytes header 

Code, all your code and the runtime code 

Data, all global variables 

Stack, room for the stack pointer 

Heap, heap memory used from the bottom. 


A program on disk has three key values in its header, the code size, the data size, and 
the BSS size. A HighSpeed generated program 

always has a data size of zero. The BSS size is the sum of the global variables the 
wanted stack size and the minimum heap size. 

All $M parameters are placed in address $102 from BasePage as 4 longwords, 
followed by one unused longword that may be used for any purpose. 


When loaded, a program tries to increment the BSS area as much as allowed by the 
amount of free memory, and as allowed by the $M parameters given. The remaining 
memory is then released to the free memory pool. The second longword in the 
BasePage is then updated to point to the last location used. 


A desk accessory does not release any memory, and does not try to allocate more than 
stack and heap-minimum says in the $M parameter. 
| The last two parameters on the $M list is not used. 


These variables points into a loaded program 
BasePage: 
Pointer to the BasePage. 


HeapOrg: 
Pointer to the bottom of the heap. 
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HighStak: 
Top of Stack. Actually the same as HeapOrg. 


LowStack: 

Bottom of stack. The stackcheck routine checks the stack pointer against this one. 
The LowStack is 126 bytes above the real bottom. It can be incremented a bit if you 
need to have a larger margin. 


Traps and Exceptions 

When a normal program (not a desk accessory) starts, it initializes some traps so that 
an error message can be given if exceptions does occur. The old traps are saved in 
STrapNN, where NN is the number of the used trap. NN is either 5 or 102 (hex). 
Number 5 is for Division by zero and number 102 is for Terminate. Bus and Address 
errors will still give the normal bombs forcing the program to terminate. This is where 
the 102 trap gets activated. 

Right before the program terminates, it calls all ErrorHandler procedures from the 
ExitProc list. 


Exit Procedures 

The system unit implements a variable ExitProc: Pointer. It points to a procedure that 
is called when a program is about to terminate, no matter what the cause is. The 
ExitProc is initiated to point to the systems exit handler, which removes the installed 
traps before the final termination. If this handler is not called before the program 
terminates, you are asking for trouble. The installed traps will point to non existing 
code after the program has terminated if they are not removed. 


The ExitProc pointer enables you to gain control before the program terminates, just 
by entering your own exit procedure into the chain. Your exit procedure can then close 
files and do other cleaning jobs. 


When the ExitProc handler starts working, it keeps calling the procedure pointer to by 
ExitProc, until the last procedure (the systems own exit) has been called. 


You use the Exit handler system this way: 


var 
OldExitProc: Pointer; 


Procedure MyExitHandler; 

begin 
ExitProc:=OldExitProc; 
Cleanup... 

end; 

procedure Initialize; 

begin 
OldExitProc:=ExitProc; 
ExitProc:=@MyExitHAndler; 

end; 


A4-2 Inside HighSpeed 


The exit handler should restore the ExitProc variable as the first thing. Any errors that 
occur before the ExitProc is restored will terminate the program right away, skipping 
the execution of thesystems exit handler. 


When the exit handler starts it work, it resets the stack pointer to HighStak. Otherwise 
a Stack overflow might occur. 


Heap Manager 

The heap is where dynamic data is kept. Data blocks are allocated with New and 
GetMem, and disposed of again using Dispose and FreeMem. Every block released 
must be released using the same parameters for the release as for the allocation. If more 
memory is released than retrieved the heap system will be destroyed. 


Heap memory is allocated in blocks of 8 byte at a time. Allocating 1000 integers on 
_ the heap will use 1000*8 bytes of the heap, the same space as for 1000 double reals. 


When memory blocks are released in the middle of other blocks, there will be a hole, 
that can later be reused. If there are no holes in the heap, the result of MemAvail will 
equal the result of MaxAvail. 


The free list is kept in the first 8 bytes of a released block. Initially there is one big free 
hole. 


Data formats 


Integer Types 
Values are saved using as much space as needed to save all the information including 
a sign bit. 


Integers, -32768..32767, are saved in a 16 bit word. 

LongInt’s, -2147483648..2147483647, are saved in a 32 bit (long) word. 

ShortInt’s, -128..127, are saved in an 8 bit word. 

| Subranges of integers are saved using signed values. Subranges that lays between the 
bounds of ShortInt, Integer or LongInt are stored using one of these formats. A 
subrange of 0..255 is therefore stored in a 16 bit word. 

Packed structures does save a subrange of 0..255 as an unsigned 8 bit 

byte. 

Char Types 

The predefined type Char, #0..#255 are stored using a 16 bit word, with a zero in the 
high byte, and the ASCII value of the character in the low byte. 

A subrange in the area from #0..#127 is stored in an 8 bit word. 


Packed structures does save a Char in an unsigned 8 bit byte. 
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Enumerated Types 
An enumerated type is stored as a byte if it contains less than 129 values, else itis saved 
using a 16 bit word. 


Boolean Types 
The Boolean type is an enumerated type of False..True and as such saved ina byte. 


Real Types 

The Single and Double types are saved in 4 and8 bytes using the IEEE standard format 
as it can be found in a 6888 1 manual. 

An extended real is saved in 10 bytes using an internal format. This format is not 
compatible with the 68881 Floating Point Unit. 

This is what you get from the reals: 


Type Bytes used Range Useful digits 
Single 2 3.4e-38..3.4e38 fie 
Real=Double 8 1.7e-308..1.7e308 Lo= 16 
Extended 10 1.1e-4932..1.1e4932 18-19 


The trigonometric functions all works using Double precision. 


Do not use Reals for counting. In integer types, the LOWER xx bits are 
saved, always giving you access to add one in order to change the value. The real types 
only saves the UPPER xx bits of the value, skipping the lesser significant bits. 


Calculations on real types does never makes runtime errors. Instead the 

result returned contains a special mask. By using the function ValidReal, you can test 
if a returned value is valid. The function retums false if the real value is illegal. 
Function ValidReal(R: Real): Boolean; 

The predefined constant NAN contains the special mask used for signaling bad reals. 


When writing a value containing a NAN, the string ‘ NAN’ or ‘-NAN’ is written. 


Pointer Types 
A Pointer is saved using a 32 bit longword. NIL is saved as a longword of zero. 


The Ptr function takes a LongInt and type converts it into a pointer. The 32 bit value 
retumed is the same 32 bits as in the 32 bit LongInt. 


Set Types 

Set types are stored using 1 to 32 bytes. Each byte can hold eight elements. The lower 
and upper limits of the set are byte aligned before calculating the number of bytes 
needed. 


A set of 6..10 uses 2 bytes because the limits are aligned to the range of 0..15. 
The bit number within a byte is calculated as: Number = ElementNumber mod 8. 
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Array Types 


Unpacked elements are all stored on even addresses, forcing byte elements to be 
interleaved with filler bytes. A packed array does pack Char and Integer subranges of 
0..255 into unsigned byte elements. 


The array elements are stored sequential in memory (maybe with padding) with the 
element with the lowest index first in memory.A multi dimensional array is saved with 
the right most dimension increasing first. 


Example: 

Var Ad: array [l..3,1..d0,1..20] of integer. 

The array A3[1,3] is an array of [1..20] of integer. 

The array A3[2] is an array of [1..10,1..20] of integer. 


Record Types 

The first element of the Record is stored first in memory followed by the others in same 
sequence as written. All variables using more than one byte are word aligned. All 
variant parts starts at the same address. 


As with arrays, packed records does pack Char and Integer subranges of 0..255 into 
unsigned byte elements. 


Files types 
Files types uses 18 bytes of memory. This is the memory layout of the file control 
block: 


Type 
FileRec = Record 
fInpFlag: Boolean; {Uses for input} 
fOutFlag: Boolean; {Used for output} 
fHandle: Integer; {File handle} 
fBufSize: Integer; {Record size or Text: buffer size} 
fBufPos: Integer; {Text: buffer position} 
fBufEnd: Integer; {Text: buffer last used} 
fBuffer: Char32KPtr; {Text: buffer pointer} 
fInOutProc: Pointer; {Text: IO handler if fHandle is zero} 
end; 


Text files uses additional space in the heap for its buffers. fBuffer points to this 
memory. The size of this buffer can be set in the Reset, Rewrite and Append call. 


fHandle contains the file handle obtained when opening the file. If zero the fInOutProc 
points to a device handler. 


The filename is not saved in the File control block. 
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Calling Conventions 

Parameters for procedure (and function) calls are moved to the stack using the normal 
Pascal order of parameters. The first parameter met in the source is first moved onto 
the stack. This is opposite to the C-language way of doing things. The called routine 
removes all parameters from the stack, except for the result from a functions. 


A procedure call looks like this: 


MOVE Paraml,— (SP) 
MOVE Param2,-(SP) 
MOVE Param3,-—- (SP) 
JSR Procedure 


A function call looks like this: 


SUB #nn, SP 

MOVE Paraml,-—-(SP) 
MOVE Param2,-(SP) 
MOVE Param3,-(SP) 
JSR Function 
MOVE (SP)+,Result 


The function call makes room for the result on the stack first, and removes the result 
itself after the call. 


If the result uses more than 4 bytes, then only the address is passed. 
This is the sequence used: 


PRA Result 

MOVE Paraml,— (SP) 
MOVE Param2,- (SP) 
MOVE Param3,-— (SP) 
JSR Function 
ADD #4,SP 


The procedure and function code looks like this: 


JSR StackCheck 

LINK A6, #-StackUsed 

MOVEM.L D3-D7/A2-A5,-(SP) 

{Take copy of value parameters} 


MOVEM.L (SP)+,D3-D7/A2-A5 


UNLK Aé6é 

MOVE.L (SP)+,A0 

ADD #ParamSize, SP 
JMP (A0) 
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The last 3 lines may look like a single “tts” if the routine takes no parameters. The 
“movem” is removed if none of the registers d3-d7 or a2-a5 are used by the routine. 
The StackCheck routine is called if the compiler directive $S+ is active. It looks at the 
StackUsed parameter, and compares this value added with the stackpointer SP against 
the system variable StackLow. 


If the called procedure is nested, that is if itis declared inside another procedure, the 
stack frame is also passed as a parameter, the last one. All parameters then moves four 
bytes up in memory fromthe _A6 register. 


A procedure call to a nested procedure looks like this: 


MOVE Param,“ (SP) 
MOVE.L A6,-(SP) 
JSR Procedure 


The procedure can then use code as: 


MOVE.L 4(A6),A0 
MOVE nn, (AQ) 


in order to read or write variables in other levels. If the nesting level is more than one, 
a number of “MOVE.L 4(A0),A0” can be inserted between these two lines. 


Value Parameters 

Value parameters are copied every time the routine gets called. If the size of the 
variable is less or equal to 4 bytes, its value is pushed onto the stack right away. 
When the size is greater than 4 bytes a reference is pushed. A normal Pascal routine 
then makes it own copy as the first thing in the routine. An assembler routine does not 
have to take a copy if it does not change the parameter, thereby saving time and code. 


Two and four byte parameters are passed using the same storage method as used when 
storing in normal variables. 


) Byte values are passed using the normal procedures for bytes on the stack, using a 
word. Otherwise the stack pointer would be misaligned. 


Real types are passed by reference to an extended real, maybe first converted from the 
other real formats. 


Arrays and Records are passed by reference unless they can becontained in four bytes. 
Strings are passed by reference. 


Sets are passed as references to a maximized set of 256 elements. 
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Variable Parameters 

Variable parameters are always passed by pushing the address of the variable. The 
routine then uses the exact same location for its formal parameter as the caller does for 
its actual variable. Both variables must of cause be of exact same type. 


Function Results 

For function results of Integer, Char, Boolean and any subrange, two or four bytes are 
allocated on the stack before the call. The result is returned in this space and removed 
after the call. 


For Real types, the callerallocates 10 bytes for an extended real, and pushes the address 
of this before any parameters. The caller removes this again after the call. 


For String types, the caller allocates temporary space for the string, pushes the address 
of this before any parameters and removes it again after the call. 


Other types cannot be returned. 


Using Assembly Language 

The {$L FileName} compiler directive allows assembly code to be included into your 
Pascal code. The object format used is the standard one used on the Atari. Thesefiles 
have the extension “.O” as default. When “Making” a program (compile with update 
check), the $L file is also checked to see if it has been changed. 


HighSpeed Pascal makes some restrictions on what can be done using object files due 
to the nature of the built in smart linker in the compiler and because the object file first 
gets included in the internal unit format. 


Restrictions: 


1. There is no declared data area in HighSpeed Pascal programs. 
Data areas can therefore not be used. Only the BSS area can be usedfor data. 


2. All references to procedures (and functions) in other assembly modules or in the 
Pascal source must use the JSR, JMP, LEA or PEA formats. BSR and Bcc are only legal 
within a module, because the assembler fixes these references itself. Also each 
procedure used for cross module reference must be named in the Pascal source by an 
extemal declaration, simply to tell the compiler that another entry in the procedure 
table is needed. 


3. 8 bit fixups are not allowed as in Var1(A0,D0.W). 


4, The registers that may be used are DO, D1, D2, AO and A1. All other used, must be 
saved and restored by the routine. 


5. All names are restricted to 8 characters. All interfaced names cannot be longer than 


8 characters. This is why the System variables HighStak and LowStack are named this 
way. The KeyPressed routineis an assembly file. This one is made by making anormal 
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Pascal routinethat calls the real assembly file KeyPresX. 


Below are two ways of implementing a function AddThing declared as shown in 
following program: 
Program test; 
{$L MyAsm} 
Function AddThing(Thingl: Integer; VAR Thing2: Integer) : Integer; 
EXTERNAL; 


Var n,SideVar: Integer; 
begin 

n:=AddThing (7,n) ; 
end. 


~ This is the standard way of making AddThing using an assembler 


EXPORT AddThing ;Make AddThing public 
AddThing: LINK Ao, #-0 7= because no locals 

MOVE.L 8 (A6),A0 ;Read “Thing2 

MOVE.W 8+4(A6) ,DO ;Get Thingl 

ADD.W DO, (AO) ;Update Thing2 

MOVE.W D0, 8+4+2 (A6) ;Return DO to AddThing 

UNLK A6é 

MOVE.L (SP)+,A0 *Get return address 

ADD #4+2, SP ;Remove Thing2 and Thingl 

JMP (AQ) yand return 


This is the quick and dirty way of making assembly files, also showing the use of a 
global Pascal variable SideVar. 


EXPORT AddThing 7In file MyAsm.S 
AddThing:MOVE.L (SP) +,RetAddr 

MOVE.L (SP) +,A0 ;Read “Thing2 

MOVE.W (SP) +,D0 7Get Thingl 

ADDQ.W #1,SideVar ;Side effect 

ADD.W D0, (AQ) ;Update Thing2 

MOVE.W DO, (SP) ;Return DO to AddThing 

MOVE.L RetAddr,A0 ;Get return address 

JMP (AQ) rand return 

BSS 

IMPORT SideVar ;Global data 
RetAddr: DS.L 1 ;Local data 
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Inline 

Small assembly code subroutines can be placed directly in the source by declaring an 
inline procedure (or function). They should be short because all the code is inserted 
every time the procedure or function is called. 


The syntax is: 


InlineDirective = 
“Inline” Constant { “,” Constant }. 


Each constant is a 16 bit value. 


Following is an implementation of function AddThing using an inline directive: 
Program test; 
Function AddThing(Thingl: Integer; VAR Thing2: Integer): Integer; 
INLINE $205F, { MOVE.L (SP)+,A0 ;Read *Thing2} 
$301F, { MOVE.W (SP)+,D0 ;Get Thing1} 
SD150, { ADD.W D0, (AO) ;Update Thing2} 
S3E80; { MOVE.W DO, (SP) ;Return DO} 
var m,n: Integer; 
begin 
n:=AddThing (7,m) ; 
end. 


This is the input to Borlands Macro Assembler MAS-68K: 


MOVE.L (SP)+,A0 ;Read *Thing2 

MOVE.W (SP)+,D0 ;Get Thingl 

ADD .W DO, (AQ) ;Update Thing2 

MOVE .W DO, (SP) ;Return DO to AddThing 
END 


and this is the output from MAS-68K, used in making the inline procedure heading: 


MAS-68K 68030 Macro Assembler (C) 88 - 90 SoftDesign Muenchen 
Source File: ADDTHING.S 
1 00000000' 205F MOVE.L (SP)+,A0 ;Read “Thing2 
2 00000002' 301F MOVE.W (SP)+,D0 ;Get Thingl 
3 00000004' D150 ADD.W DO, (A0) ;Update Thing2 
4 00000006' 3E80 MOVE.W DO, (SP) 7;Return DO to AddThing 


Device Driver 
It is possible to define your own devices in HighSpeed Pascal. They are activated by 
Reset, Rewrite and Append calls when referenced by their logical name. 


A device is installed with a call to: 


Device (Name: String; IOprocedure: Pointer). 
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The call Device(‘MyDriver’,@MyDriver) installs the name along with the 
address of the IO handler. 


The IOprocedure must have a heading like this: 
Function IOproc(var F: FileRec): Integer; 


By looking at the flags the routine can see why it is called. The function value returned 
is put into the IOResult variable, forcing a runtime error if $I+ is used. 

The routine is called by Write, Writeln, Page, Read, ReadIn, Close, Eof, SeekEof, Eoln 
and SeekEoln whenever input or output must be performed. 


fInpFlag is set when the driver should read fBufSize bytes (characters) into the buffer 
fBuffer’. fBufPos is then set to zero, and fBufEnd is set to show how many bytes 
/ actually got read. Whenever zero byte is read, Eof is true. 


fOutFlag is set when the driver should write fBufPos bytes from the buffer fBuffer’. 
fBufPos is set to zero if the data is written. It is legal not to do anything if the buffer 
is not full, that is if fBufPos does not equal fBufEnd. 


A skeleton driver: 


Function MyDriver(var F: FileRec): Integer; 
var 
P: Integer; 
Ch: char; 
begin 
MyDriver:=0; {IOResult :=0k} 
With F do begin 
if fInpFlag then begin 
fBufEnd:=0; 
repeat 
Ch:=ReadKey; 
fBuffer*[fBufEnd] :=Ch; Inc (fBufEnd) ; 
until (Ch=#10) or (Ch=*Z) or (fBufEnd=fBufSize) ; 
end else {Doing output} 
begin 
for P:=0 to fBufPos-1 do WriteCh (fBuffer’ [P])> 
fBufPos :=0; 
end; 
end; 
end; 
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Compiler Errors 


These are the “expected” errors of the simple type: 


expected 
expected 
expected 
expected 
expected 
‘[’ expected 
‘]’ expected 
‘.’ expected 
‘=! expected 
‘:=" expected 
‘..’ expected 
END expected 
DO expected 
OF expected 
THEN expected 
TO or DOWNTO expected 


. 
7 


a - - - - 
se 
= ™ ™“ ™“ ™ 


BEGIN expected 
Often returned with the cursoron top of garbage text. The compiler expects 
BEGIN when it cannot find any further declarations in a function. 


INTERFACE expected 
The word INTERFACE must follow a UNIT heading. 


IMPLEMENTATION expected 
)When in a unit, the compiler expects IMPLEMENTATION when it 
cannot find any further declarations. 


The following are also errors ofthe “expected” type, but more complex than 
the previous, 


Constant expected 
Boolean expression expected 


The construct “IF expression THEN” needs a boolean expression. You 
cannot write IF 2+3 THEN. 
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Integer constant expected 

The real assignment R:=123.4; is ok, but the assignment R:=12345678; is 
bad because the compiler reads the number as an integer. You can add a 
‘0’ to make it a real. 

Integer expression expected 
Integer variable expected 

Integer or real constant expected 
Integer or real expression expected 
Integer or real variable expected 
Pointer variable expected 

Typed Pointer variable expected 
File variable expected 

Record variable expected 

Ordinal type expected 

Ordinal expression expected 
String constant expected 

String expression expected 

String variable expected 
Identifier expected 

Variable expected 

Type identifier expected 

Field identifier expected 


Char expression expected 
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The rest of the errors are of more varying kinds: 


Unknown identifier 
Undefined type in pointer definition 


‘” expected after module name 
When using unit references, the unit name must be followed by a “’. 


Duplicate identifier 
Note that the program name is also entered into the symbol table. This can 
be used to reference items in other units if redefined by other units. If you 
have made a Reset procedure, then you can only reset a file by writing 
System.Reset(aFile,”). 


Type mismatch 

Constant out of range 

Constant and CASE types do not match 
Operand types doe not match operator 


Invalid result type 
A function can only return simple, string and real types. 


Invalid string length 


Invalid subrange base type 
Lower bound greater than upper bound 


Invalid FOR control variable 
The FOR variable must either be declared in the same function or globally. 
It may not be part of any structure. 


Illegal assignment 

String constant exceeds line 

You may have forgotten an apostrophe in the string. Note that a single 
apostrophe in a string must be written as two apostrophe’s. 


Error in integer constant 
An integer constant with an illegal range has been declared. 


Error in real constant 
A real constant with an illegal range has been declared. 


Division by zero 
The compiler has located an attempt to divide something with zero. 


Structure too large 
Occurs when the size of a structure exceeds 32Kbytes. 
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Constants are not allowed here 

Invalid type cast argument 

Type casting can only be performed when the argument is of the same 
size as the desired type. 


Invalid ‘@’ argument 
Only works on functions, procedures and variables. 


Invalid GOTO 
A label has been declared (LABEL MyLabel;), but not placed anywhere in 
the sourcecode (MyLabel:). 


Label not within current block 
It is not possible to jump to a label residing outside the current block. 


Undefined label 
A label has not yet been defined. 


Label already defined 
A label has already been defined. 


Invalid file type 

Cannot read or write variables of this type . Files must be VAR parameters 
File components may not be files 

Set base type out of range 

A set base type must be a subrange with it’s bounds in the range 0.255 
or an enumerated type with no more than 256 possible values. 

Error in type 

Error in statement 

Error in expression 

Undefined FORWARD procedure: xx 

Undefined EXTERNAL procedure: xx 

Invalid external definition, symbol = xx 


Invalid external reference, symbol = xx 


Too many symbols 
Only 32 KByte is set aside for the symbol table for each unit or program. 
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Too many nested scopes 
Also given when too many units are used. Maximum is 63. 


Expression too complicated 
All data registers in the 68000 processor are used for temporary integers. 


Too many variables 
No more than 32Kbytes of data is allowed ina module. Split up the module 
into units. 


Too much code 
No more than 32Kbytes of code is allowed in a module. Split up the module 
into units. 


| Bad unit or program name: xx 
Unit missing: xx 


Unit not found 

The linker cannot find a specific unit in the PACSAL.LIB file. Nor can it 
find the unit in any of the directories specified in the OPTION S/Compiler 
dialog. 


Incompatible unit versions 
The program is trying to use a unit compiled with another version of the 
compiler than you are currently usoing 


Syntax error 
Something is wrong! 


Unexpected end of text 
You may have more begins than ends. Maybe caused by an non-terminated 
comment. 


Line too long 
)Only 127 characters are allowed on one line. 


Invalid compiler directive 
An unknown compiler directive has been found. 


Bad object file in file: xx 
You cannot make BSR and BRA to externally defined labels. You MUST 
use JSR and JMP. See the restrictions in “Inside HighSpeed Pascal”. 


Not enough memory 

The compiler cannot complete the compilation, due to insufficient memory. 
Ways around this problem can be: Limiting the size of the resident library 
(PASCAL.LIB) or removing any resident programs from memory. 
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Too many files ($I or USES) 
Each Uses file uses an include level when it is re-compiled. 


No room in 16 bit fixup field, try with $F'+ 
An attempt is made to call a fragment of code located more than 32 
Kbytes away from the current location in memory. 


Duplicate unit name: xx 

A unit name has been specified twice in the same USES clause. Like this: 
Uses Dos,Dos; 

Conditional variable missing 

The name of a conditional variable is missing in a $DEFINE, $UNDEF, 
$IFDEFor $IFNDEF directive. 


Misplaced conditional directive 


Occurs if, for example, a {$ELSE} directive is found before a {$IFDEF} 
directive. 


ENDIF directive missing 


Either this error or the ,, Unexpected end of text“ error will occur if a 
{SENDIF} directive is missing after a {$IFDEF} and a {$ELSE} directive. 
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Runtime Errors 


Tos errors are returned as negative numbers. The corresponding positive 
error number can be found by using the formula NewNo:=3 1-OldNo. 


Runtime errors are generated at runtime and causes the program to 
terminate 


50 Stack overflow. 
Generated by the $S+ control code. Check is performed at entry to each 
procedure and function using this feature. 


Fix: Your program has too little stack space, or it has entered a recursive 
procedure that did not terminate before the stack area was used up. Your 
procedures may also have large structures (arrays) as local variables, 
which are located on the stack while the procedure is running. 


51 Range check. 
Generated by the additional $R+ code. 


Fix: You may be trying to assign an invalid value to a variable, either by 
using an assignment as := or passing it to a procedure/ function. 

Another bug could be to try to access a non-existing element of an array 
(string). 


52 BUS error. 

Generated by the 68000 CPU, when trying to access invalidmemory. The 
memory right above address zero is also invalid fora normal program. This 
area can only be accessed in supervisor mode by first using the Super 
function from the Tos unit. 


Fix: The problem could be that you (inadvertently) are using a pointer 
variable containing NIL (or garbage). 


53 ADDR error. 

Generated by the 68000 CPU, when trying to access word or longword 
elements from an odd address. This cannot be done in one instruction, you 
have to read it one byte at a time. 


Fix: You will only see this problem if you make the addresses yourself, by 
making your own pointer variables with the Ptr function. HighSpeed 
Pascal always locates its word variables on even addresses. 


54 Other errors. 

BUS, ADDR and DIV0 errors are hardware traps in the 68000 system. 
Many other traps are defined. Ifthe program terminates due to atrap other 
than above three, the error is shown. You can count the number of bombs 
on the screen to see which trap (if any) was used. 
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55 DIVO. 

Division by zero. Whenever the 68000 CPU makes a division by zero, the 
error is given. Long integers are divided by internal routines, that also 
gives error 55 when you try to divide by zero. 


56 Heap overflow. 

When the heap is so full that a request fora new blockcannotbe satisfied, 
the error is given. 

Fix: You must test the MaxAvail function instead of the MemAvail 
function. MaxAvail returns the size of the largest block where MemAvail 
returns the total. 


57 Other error. 
Same as error 54, exept for the trap. The address given is the last one seen 
after a range or stack check call made by using the S+ and R+ flags. 


58 User break 

User has used the Shift-Shift key combination. This testis only done inthe 
range and stack check routines. Thefore it can only occur if the S+ or R+ 
flags are used. 


The following are the errors generated by the file system: 


60 File not open. 
You may not read from a file not reset. 


61 File not open for read. 
You can write to a text file in rewrite mode, but not read from it. 


62 File not open for urite. 
You can read from a text file in reset mode, but not write to it. Use append 
first. 


63 No memory for device. 
A HighSpeed Pascal device driver needs heap memory for its buffer and 
name. 


64 Read Write error. 
A read/write error has occurred. 


65 Bad numeric value read. 
Non-numeric data has been read into a numeric variable. 
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Books Pascal/GEM 


Title , Author , Description, Publisher, Pages, (x=nothing). 


Pascal and GEM books in English: 
Oh! Pascal!, Doug Cooper and , Pascal tutorial , WW Norton & Co. 


The Atari ST Explored, Braga , Programmer’s Technical Guide, Kuma 

Computes! Tech. ref. Guide Vol. 2, Sheldon/Lemmon, Guide to GEM AES, Compute! 
ST GEM Programmer’s Ref., Szcezepanowski/Gunther Abacus. 

Programming the 68000 , Williams Sybex. 


Pascal and GEM books in German: 
Atari ST - Arbeiten mit GEM, Vol. 1, Sender, x, Sybex, pgs. 320 


Atari ST - Arbeiten mit GEM, Vol. 2, Danielsson/Volkmann, x, Sybex, pgs. 240 


Atari ST GEM, Abraham El Al, Programming GEM with Pascal, C, and Assembler, 
Dala Becker, pgs. 691 


Atari St Programmierpraxis ST Pascal, Wollschlaeger, x, Markt & Technik, pgs. 288 
GEM praxis auf dem Atari ST, Tolksdorf, x, Heise, pgs. 167 
GEM Programmier Handbuch, Balma/Fitler, x, Sybex, pgs. 520 


Softwareentwicklung auf dem Atari ST, Gei-/Gei-, Programming GEM with Pascal 
and C, Hathig, pgs. 424 


Vom Anfanger zum GEM Profi, GEM programming on the ST and PC, Gei-/Gei-, x, 
Hathig, pgs. 300 
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Symbols 


$D RI1.1 

$F R11 

oi. R11, R1.2 
$M R1.2 

$O R12 

$R R1.2 

$S R12 

$V R1.2 


A 


Abs function R2.1 
AC._CLOSE 6.67 
AC_OPEN 6.67 
Activations 4.33 
Addr function R2.1 
ALL_BLACK 6,24 
ALL_WHITE 6.24 
ANS Pascal <A3.2 
Append 4.35 
Append procedure R2.2 
AppFlag 5.11 
appl_exit 6.74 
appl_find 6.73 
appl_init 6.72 
appl_read 6.72 
appl_tplay 6.73 
appl_trecord 6.74 
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ArcTan function R2.2 
Arithmetic Operators 4.17 
Array 4.8 

Arrays 4.14 

ARROW 6.69 
ARROWED _ 6.23 
Assignment 4,22 
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BasePage 5.9 

BConIn 5.7 

BConStat 5.7 

BCoStat 5.7 
BEG_MCTRL 6.69 
BEG_UPDATE 6.69 
BiosKeys 5.6 

BitTest 6.21 

BlockRead 4.36 
BlockRead procedure R2.3 
Blocks 4.32 

BlockWnite 4.37 
BlockWrite procedure R2.4 
Blue 6.70 

BOLD 6.23 

Boolean Operators 4.17 
Borlands Macro Assembler MAS-68K_  <A4.11 
BRICKS 6.23 

Build All A2.6 
BUSYBEE 6.69 

Byte Type 5.8 
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Case Statements 4.24 
ChDir 5.4 

ChDir procedure R2.4 
CHECKED — 6.70 

Chr function R2.4 
Close 4.36, A2.2 
Close procedure R2.5 
CloseGraphicsWindow 6.15 
CLOSER 6.68 

ClrEol procedure R2.5 
ClrEos procedure R2.6 
ClrScr procedure R2.6 
Command AI1-1 
Compile A2.1 
Compiler A2.8 
Compiler Directives 4.4 
Compiler Errors AS5.1 
Compound Statements 4.23 
ComStr 5.2 

Concat function R2.7 
configuration 2.1 
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Constant Declarations 4.4 
Copy A2.3 

Copy function R2.7 
Cos function R2.8 
CROSSED 6.70 
CursConf 5.6 

Cut A2.3 

Cycle Windows A2.5 
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D_INVERT 6.24 
D_ONLY 6.24 
~DASHDOT 6.23 

/ DASHDOTDOT 6.23 
DASHED 6.23 
DateTime 5.2 

Dec procedure R2.8 
DEFAULT 6.70 
Delay procedure R2.9 
Delete procedure R2.9 
DelLine procedure R2.10 
Desk A2.1 

Destination <A2.6 
DevChain 5.11 
Directory-handling 5.4 
DirStr 5.2 

DISABLED 6.70 
Disk status 5.3 
DiskFree 5.3 

DiskFree function R2.11 
DiskSize 5.3 

DiskSize function R2.11 
Dispatch 6.8 

Dispose procedure R2.12 
~ DNARROW 6.68 
DoAboutBox 6.9 
DoGraphicsRedraw 6.13 
DosError 5.2 
DosError Variable 5.2 
DosError variable R2.13 
DoSound 5.6 
DoTextRedraw 6.12 
DOTS 6.23 

DOTTED 6.23 
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EDCHAR 6.70 
EDEND 6.70 
EDINIT 6.70 

Edit A2.1 
EDITABLE 6.70 
EDSTART 6.70 
EmptyRect 6.22 
End_Gem_ 6.16 
END_MCTRL 6.69 
End_Resource 6.16 
END_UPDATE 6.69 
Enumerated 4.7 
EnvCount 5.3 
EnvCount function R2.13 
EnvStr 5.3 

EnvStr function R2.14 
Eof 4.36 

Eof function R2.15 
Eoln function R2.16 
Erase procedure R2.16 
Erase(Title) 4.36 
ErrorAdr 5.10 
Escapes 6.58 
evnt_button 6.75 
evnt_dclick 6.78 
evnt_keybd 6.74 
evnt_mesag( 6.76 
evnt_mouse 6.75 
evnt_multi 6.76 
evnt_timer 6.76 
Execute A2,.2 

Exit procedure R2.17 
ExitCode 5.10 
ExitProc 5.9 
ExitProc variable R2.18 
Exp function R2.18 
External 4.29 

ExtStr 5.2 
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F_EXIT 6.70 
FExpand 5.4 

FExpand function R2.19 
File A2.1 

File Attribute 5.1 
File-handling 5.4 
FilePos 4.36 

FileSize 4.36 

Find A2.4 

Find Cursor A2.5 

Find Error A2.6 

| Find Next A2.4 

Find Selection A2.4 
FindFirst 5.4 

FindFirst procedure R2.22 
FindNext 5.4 
FindNext procedure R2.23 
FLAT_HAND 6.69 
FlopFmt 5.5 

FlopRd 5.5 

FlopVer 5.5 

FlopWr 5.5 
FMD_FINISH 6.67 
FMD_GROW _ 6.67 
FMD_SHRINK 6.67 
FMD_START 6.67 
For Statements 4.25 
ForceGraphicsRedraw 6.14 
form_alert 6.86 
form_center 6.87 
form_dial 6.85 
form_do 6.84 
form_error 6.86 
Forward 4.28 
FreeMem procedure R2.23 
fsel_exinput 6.94 
fsel_input 6.93 

FSplit 5.4 

FSplit procedure R2.24 
FULLER 6.68 
Function 4.31 
Function Calls 4.20 
Function Results A4.8 
Functions 4.27 
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G_BOX 6.69 
G_BOXCHAR 6.69 
G_BOXTEXT 6.69 
G_BUTTON 6.69 
G_FBOXTEXT 6.69 
G_FTEXT 6.69 
G_IBOX 6.69 
G_ICON 6.69 
G_IMAGE 6.69 
G_STRING 6.69 
G_TEXT 6.69 
G_TITLE 6.69 
G_USERDEF 6.69 
GEM: An overview 6.1 
GemDecl 6.19 
GemError 6.72 
GemVDI_ 6.23 

General A2.8 

Get info <A2.3 

GetBpb 5.5 

GetDate procedure R2.25 
GetDir 5.4 

GetDir procedure R2.26 
GetDrive 5.3 

GetDrive function R2.26 
GetEnv 5.3 

GetEnvy function R2.27 
GetFattr 5.4 

GetFattr procedure R2.28 
GetFtime 5.3 
GetFTime procedure R2.29 
GetMem procedure R2.30 
GetMpb_ 5.7 

GetRez 5.5 

GetTime procedure R2.31 
GetVerify 5.3 
GetVerify function R2.32 
Giaccess 5.6 

Goto line A2.4 

Goto Statements 4.23 
GotoXY procedure R2.32 
graf_dragbox 6.88 
graf_growbox 6.89 
graf_handle 6.91 
graf_mkstate 6.92 
graf_ mouse 6.92 
graf_movebox 6.88 
graf_rubbox 6.87 
graf_shrinkbox 6.89 
graf_slidebox 6.90 
graf_watchbox 6.90 
GRID 6.23 
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Halt procedure R2.33 
HandleMenu_ 6.8 
HATCH 6.23 
HeapOrg Variable 5.9 
Help A2.8 

Help system 3.6 

Hi function R2.33 
HIDE °2:1; 3.1 
HIDETREE 6.70 
HiPtr 6.20 

HiWord function R2,33 
HOLLOW 6.23 
HOURGLASS 6.69 
HSLIDE 6.68 
HSPC Al-l 
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IkKbdWs_ 5.6 

Inc procedure R2.34 
Include function R2.34 
Indent A2.3 
INDIRECT 6.70 
INFO 6.68 

Init_Gem 6.6 
Init_Resource 6.7 
InitMous 5.7 

Inline A4.10 
Procedure Inline 4.29 
Input 4.34 

Insert procedure R2.35 
InsLine procedure R2.,35 
‘Int function R2.36 
Integer 4.6 

Interrupt procedures and functions 5.6 
Intersect 6.21 

IO procedures and functions 5.7 
IoRec 5.6 

IOresult function R2.36 
IOResult: Integer 4.36 
IOResVar 5.10 
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jDisInt 5.6 
jEnabInt 5.6 
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K_ALT 6.67 

K_CTRL 6.67 
K_LSHIFT 6.67 
K_RSHIFT 6.67 
KbdvBase 5.6 

KbRate 5.6 

KbShift 5.6 

KeyPressed function R2.37 
KeyTbl 5.6 
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LASTOB — 6.70 
LastPC 5.11 

LBlue 6.70 
LDASHED 6.23 
Length function R2.37 
LFARROW § 6.68 
License Statement 3 
Linker A2.10 

Ln function R2.38 
Lo function R2.38 
LogBase 5.5 

Logical Operators 4.17 
LoPtr 6.21 

LoWord function R2.38 
LRed_ 6.70 

LWhite 6.70 
LYellow 6.70 
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M_OFF 6.69 
M_ON 6.69 
MakeXYWH_ 6,22 
MakeXYXY 6.22 
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Max 6.20 

MaxAvail function R2.39 
MD_ERASE 6,24 
MD_REPLACE 6.24 
MD_TRANS | 6.24 
MD_XOR_ 6.24 
~MediaCh 5.5 
~MemAvail function R2.39 
Menu 3.9 

menu_bar 6.78 
menu_icheck 6.79 
menu_ienable 6.79 
menu_register 6.80 
menu_text 6.80 
menu_tnormal 6.79 
MfpInt 5.6 

MidiWs 5.6 

Min 6.20 

MkDir 5.4 
MkDir procedure R2.39 
MN_SELECTED 6.67 
Move procedure R2.40 
MOVER 6.68 
MoveWindow 6.14 
MU_BUTTON 6.67 
MU_KEYBD 6.67 
MU_MI1 6.67 
)MU_M2_ 6.67. 
MU_MESAG _ 6.67 
MU_TIMER _ 6.67 
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NAME 6.68 
NameStr 5.2 

New A2.2 

New procedure R2.41 
NONE _ 6.70 
NORMAL. 6.23, 6.70 
NOT_D 6.24 
NOT_SANDD 6.24 
NOT_SORD 6.24 
NOT_SXORD 6.24 
NOTS_AND_D 6.24 
NOTS_OR_D 6.24 
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objc_add 6.80 
objc_change 6.84 
objc_delete 6.81 
objc_draw 6.81 
objc_edit 6.83 
objc_find 6.81 
objc_offset 6.82 
objc_order 6.82 
Odd function R2.42 
OffGiBit 5.6 

Omit function R2.42 
OnGiBit 5.6 

Open A2.2 

Open Selection A2.2 
OpenGraphicsWindow 6.11 
OPTIONS A2.8 
Options Ad2.1 

Ord function R2.43 
Ord4 function R2.43 
Ordinal Types 4.6 
Outdent A2.3 
OUTLINE 6.23 
OUTLINED 6.70 
OUTLN_CROSS 6.69 
Outpu 4.34 
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Packtime 5.3 

PackTime procedure R2.44 
Page procedure R2.45 
Parallel port 5.6 
ParamCount 5.3 
ParamCount function R2.45 
Parameter functions 5.3 
ParamStr 5.3 

ParamStr function R2.46 
Paste <A2.3 

PathStr 5.2 

PATTERN 6.23 
Personal Pascal A3.1 
PhysBase 5.5 
Piconstant R2.47 
POINT_HAND _ 6.69 
Pointer 4.12 

Pointers Comparing 4.19 
Pos function R2.47 

Pred function R2.48 
Print A2.2 

Print Selection (4P) A2.2 
Procedure 4.31 
Procedure Parameters 4.29 
Procedure Statements 4.23 
Procedures 4.27 
Program Syntax 4.32 
ProTobt 5.5 

PrtBlk 5.5 

Ptr function R2.48 
PuntAES 5.7 
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Qualifiers 4.13 
Quit (*Q) A2.2 
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R_BIPDATA 6.68 
R_BITBLK 6.68 
R_FRIMG 6.68 
R_FRSTR_ 6.68 
R_IBPDATA 6.68 
R_IBPMASK 6.68 
R_IBPTEXT 6.68 
R_ICONBLK_ 6.68 
R_IMAGEDATA | 6.68 
R_OBJECT 6.68 
R_OBSPEC 6.68 
R_STRING 6.68 
R_TEDINFO 6.68 
R_TEPTEXT 6.68 
R_TEPTMPLT 6.68 
R_TEPVALID 6.68 
R_TREE 6.68 

Random function R2.49 
Randomize procedure R2.50 
RandSeed 5.9 
RandSeed variable R2.50 
RBasePage 5.8 
RBUTTON 6.70 

Read 4.36 

Read procedure R2.50 
ReadKey function R2.52 
ReadLn procedure R2.52 
Real 4.7 

Reals comparing 4.18 
Record 4.9 

Records 4.14 

Red 6.70 
RedrawWindow 6.12 
Rename 4.36 

Rename procedure R2.53 
Repeat Statements 4.26 
Replace A2.4 

Reset 4.35 

Reset procedure R2.54 
Revert to saved A2.2 
Rewrite 4.35 

ReWrite procedure R2.55 
RmDir 5.4 

RmDir procedure R2.56 
Round function R2.56 
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ROUNDED 6.23 
RsConf 5.6 

rsrc_free 6.101 
rsrc_load 6.101 
rsrc_saddr 6.103 
RTARROW 6.68 

Run A2.6, A2.11 
RunFromMemory function 
Rwabs_ 5.5 
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S_AND_NOTD 6.24 
S_ONLY 6.24 
S_OR_D 6.24 
S_OR_NOTD 6.24 
S_XOR_D 6.24 

Save A2.2 

Save As... A2.2 

Scope 4.33 

Scope for Standard Identifiers 4.34 
Scope for Units 4.34 
ScrDmp 5.5 

scrp_write 6.93 
SEARCH A2.4 

Search A2.1 

SearchRec 5.1 

Seek procedure R2.57 
SeekEof function R2.57 
SeekEoln function R2.58 
Select All A2.3 
SELECTABLE 6.70 
SELECTED 6.70 
SelectGraphicsDemo 6.10 
Serial port 5.6 

Set Constructors 4.21 
Set Operators 4.18 
SetColor 5.5 

SetDate procedure R2.58 
SetDnve 5.3 

SetDrive procedure R2.59 
SetExc 5.7 

SetFAttr 5.4 

SetFAttr procedure R2.59 
SetFtime 5.3 

SetFTime procedure R2.60 
SetObjectStatus 6.7 
SetPalette 5.5 

SetPrt 5.6 

SetScreen 5.5 

SetTime procedure R2.61 
SetVerify 5.3 

SetVerify procedure R2.62 
SHADED | 6.23 
SHADOW _ 6.23 
SHADOWED _ 6.70 
shel_envrn 6.105 
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shel_find 6.105 
shel_get 6.104 
shel_put 6.104 
shel_read 6.103 
shel_write 6.104 
ShftShft 5.11 

Short Cuts 3.2 

Sin function R2.62 
SizeOf function R2.63 
SIZER 6.68 
SizeWindow 6.15 
SKEWED 6.23 
SOLID 6.23 

Sound 5.6 

SPtr function R2.63 
Sqr function R2.64 
Sqrt function R2.64 
SQUARED 6.23 
SsBrk 5.7 

Stack Variables 5.9 
Staments simple 4.22 
Statement structured 4.22 
Statements 4.21 
STPascal 1.2, A3.1 
Str procedure R2.65 
Strings 4.3 

Strings comparing 4.19 
Structured Types 4.8 
Subrange 4.7 

Succ function R2.65 
Super 5.4 

Super function R2.66 
SupExec 5.7 

Swap function R2.66 


SwapWord function R2.67 
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TE_CNTR* 6.70’ 
TE_LEFT: 6.70" 
TE_RIGHT’ 6.70 
Text Files’ 4.37 
TEXT_CRSR 6.69 
THICK_CROSS > 6.69 
THIN_CROSS 6.69 
TickCal 5.7 > 

Time 5.3 

TopWindow 6.14 
TosVersion 5.4 | 
TosVersion function R2.67 
TOUCHEXIT 6.70 
Trap 5.10 

Traps A4.2 

Trunc function R2.68 
Turbo Pascal A3.1 
Typed Files 4.36 
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UDFILLSTYLE 6.23 
UNDERLINED | 6.23 

Undo A2.3 

Unit 3.7 

Unit BIOS 5.5 

Unit DOS 5.1 

Unit Printer 5.13 

Unit Syntax 4.33 

Unit System 5.8 

Unit System2Z 5.12 
UnpackTime 5.3 
UnPackTime procedure R2.68 
Untyped Files 4.36 

Untyped Variable Parameters 4.30 
UPARROW 6.68 

UpCase function R2.69 

User break, A2.9 

User Screen A2.3 

User screen: A2.5 
USER_DEF 6.69 
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v_write_meta 6.66 
Val procedure R2.69 
ValidReal function R2.70 
Value Parameters 4.30 
Value Typecast 4.21 
Variable Parameters 4.30 
Variable Typecas 4.15 
Variables 4.12 
vex_butv 6.52 
vex_curv 6.52 
vex_motv 6.52 
vex_timv 6.50 
vm_filename 6.66 
vq_cellarray 6.56 
vq_chcells 6.58 
vq_color 6.54 
vq_curaddress 6.61 
vq_extended 6.54 
vq_key_s 6.53 
vq_mouse 6.51 
vq_tabstatus 6.61 
vqf_attributes 6.55 
vqin_mode_ 6.57 
vql_attributes 6.54 
vqm_attributes 6.55 
vgp_ertror 6.65 
vqp_films 6.63 
vgp_state 6.64 
vqt_attributes 6.55 
vgt_extent 6.55 
vqt_fontinfo 6.57 
vqt_name 6.56 
vqt_width 6.56 
vr_recfl 6.30 
vr_trnfm 6.46 
vro_cpyfm 6.45 
vrg_choice 6.49 
vrq_locator 6.47 
vrq_string 6.49 
vrq_valuator 6.48 
vit_cpyfm 6.46 
vs_clip 6.27 
vs_color 6.36 
vs_curaddress 6.60 
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Warranty 3 
WC_BORDER 6.68 
WC_WORK. 6.68 
WEAVE 6.23 
WF_CURRXYWH. 6.68 
WF_FIRSTFXYWH _ 6.69 
WF_FULLXYWH._ 6.69 
WF_HSLIDE. 6.69 — 
WF_HSLSIZE 6.69 
WF_KIND’ 6.68 
WF_NAME 6.68 
WF_NEWDESK. 6.69 
WF_NEXTXYWH 6.69 
WF_PREVXYWH 6.68 
WF_RESVD 6.69 
WF_SCREEN 6.69 
WFE_TOP 6.69 
WF_VSLIDE 6.69 
WF_VSLSIZE 6.69 .. 
WF_WORKXYWH_ 6.68 
WhereX function R2.70 
Where yY function R2.70 
While Statements 4.26 
White 6.70 © 
wind_calc 6.100 
wind_close 6.96 
wind_create 6.95 
wind_delete 6.97 
wind_find 6.99 
wind_get 6.97 
wind_new; 6.101 
wind_open 6.96 
wind_set 6.98 
wind_update 6.99 
WM_ARROWED _ 6.67 
WM_CLOSED _ 6.67 
WM_FULLED 6.67 
WM_HSLID 6.67 
WM_MOVED 6.67 
WM_NEWTOP 6.67 
WM_REDRAW 6.67 
WM_SIZED 6.67 
WM_TOPPED _ 6.67 
WM_VSLID 6.67 
Word 5.8 
WordSymbol 4.2 
Write 4.36 

Write procedure R2.71 
WriteLn procedure R2.71 
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XbTimer 5.6 
XGetTime 5.7 
XSetTime 5.7 
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